اهدي هذا الكتاب إلى أمي ومن غير أمي يستحق هذا الإهداء فلك يا أمي اهدي هذا الكتاب 


| يا أطيب من رأت عيناي في الدنيا فجزأك الله عني وأخوتي خير الجزاء أطال الله لنا بعمرك 
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حقوق الطباعة محفوظة 2011 


عن الحتاب 


في برمجة قواعد البيانات كل ما يهمنا هو إرضاء الزبون وتوفير اكبر عدد من الخدمات له حتى يستطيع التكامل مع 


برنامجك الذي صممته له فكثرة ما يطلب الزبون تقارير مفتوحة هو يختار ما يطبع من صفوف وأعمدة وقت الطباعة 
وليس تقارير تابتة وهذا الشيء لا يوجد في الحالة الافتراضية لدوت نت وقد يطلب منك خصوصيات للمستخدمين كل 
مستخدم له صلاحيات معنية متلا احدهم صلاحیاته لا تمکنه من حذف سجلات فقط يقری وأخر مرخص له کل شيء 
وهذا ما يحتاجونه العملاء في مختلف الشركات والدوائر متلا يريد المدير أن يتمكن كل الموظفين من طباعة تقارير ولكن 
أشخاص معينين يمكنهم التعديل والحذف بما يسمى بسماحية المستخدمين .وقد يحتاج الزبون أن تكون له برنامج يكون 
مفتوح له في خزن إي عدد من الملفات الإضافية لكل شخص وأخر يريد خاصية بحث مفتوحة على كل الحقول 

والسؤال هنا كيف نحقق هذا الطلبات كلها في برنامج واحد ؟ 


هذا ما سنتعلمه في هذا الكتاب بأذن الله 
يتناول هذا الكتاب طريقة ربط قواعد بیانات ببیئة ۷.۸6 باستخدام AD0.6‏ 


بطريقة سلسة جدا يستطيع به المبتداً جدا التعلم والمطور ليزيد قدراته وفي نهاية 
کا قادرا على بتاء إى برنامج يطلبه منك العمل 


المرففات 
يوجد مغال على كل سوال مذكور ني هذا الحتاب بطريقة مرقمة هو يدلك على 
تسلسل المغال في المرفقات 


0 


مکل داك 
0 


الفصل الأول : الربط بين قاعدة البيانات وبينة الدوت نت 


الاأتصال عن طريق الكود 
خطوات الاتصال بقاعدة البيانات أكسس 
ڏJIg‏ ڊ Data Table‏ ۾ Dataset‏ ۾ Data Column‏ ۾ (Data Row‏ 
عرض البيانات من داخل قاعدة البيانات إلى الكائنات على سطح الغافذة 
القنقل بين السجلات ني قواعد البيانات 
إضافة سجل جديد إلى جدول 
حذف سجل من جدول 
تعدیل سجل 
الست في السجلات 


الاتصال عن طريق المحالج 
خطوات الاتصال بقاعدة البيانات أكسس 
الآأدوات التي أضيفت تلقائيا من قبل المحالج وكيف تعمل 


الفصل الغاني: إضافة الملفات لسجلات فواعد البيانات 
+ إضافة ملفات داخل قاعدة البيانات 

حنظ الصور داخل قاعدة السبانات وتصضحها من داخل قاعدة الببانات 

حفط ا لفات بمختلف الا متذ ادات داخل قاعدة السسانات وتصغهها 
4 إصافة ملغات مرفقا مج قاعذة السيانات 

إصافه عدد غير محدد من اللخات لحل شخص 

إضافة صورة لكل مستخدم ني قاعدة البيانات 


الفصل الثالث: تقارير الطباعة عامة ومتخصصة 


#سغاعة نفا رر العاف 
طباعه سجل واحد من قاعدة السسانات 


طباعه صور ني التقرير 
طباعة تقرير حسب طلب المستخدم وقت التنفيذ 


الاتصال عن طريق الكود 
خطوات الاتصال بقاعدة البيانات أكسس 


(Data Row ۾‎ Data Column g Dataset ۾‎ Data Table ڊ‎ Jlgد‎ 

عرض البيانات من داخل قاعدة البيانات إلى الكائنات على سطح الغافذة 

القنقل بين السجلات ني قواعد البيانات 

إضافة سجل جديد إلى جدول 

حذف سجل من جدول 

تعدیل سجل 

البحث ني السجلات 
الاتصال عن طريق المحااج 

خطوات الاتصال بقاعدة البيانات أكسس 

الأدوات التي أضيفت تلقائيا من قبل المحالج وكيف تعمل 


بعد ان تنتهي من هذا الفصل ستكون بأذن الله قادر على الربط والتعامل بين قواعد البيانات وبيئة الدوت نت 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


الجزء الأول : الاتصال بقواعد البيانات عن طريق الكود 


المكتبات التي نحتاجها للاتصال بقواعد البيانات هي 


vb.net کود‎ 
EOFS Syeten. Data 


فضاء الأسماء aاج ٥‏ ."۳ءSyst‏ يتعامل مع ۸00.٤۲‏ تحتوي على عدد كبير من فضائات الأسماء التي تمكنك من 
الارتباط بأنواع قواعد البيانات المختلفة ومن هذه الفضائات هي: 


# فضاء الأسماء ا5ءاa.0اهm”.0ه1ورS‏ التي تتعامل مع قواعد بيانات أكسس تحتوي على عدد كبير من 
(OleDbConnection) sy (OleDbCommand) s (OleDbDataAdapter Class) lie class‏ 


4 فضاء الأسماء System.Data. OracleCاie nt‏ التي تتعامل مع أوراكل تحتوي على عدد كبير من sعهاع‏ 
(OracleConnection) s (OracleCommand) ys (OracleDataAdapter Class) lia‏ 


4 فضاء الأسماء ientاSqIC System.Data.‏ التي تتعامل مع 86۲۷6۲ ا80 تحتوي على عدد کبیر من 
(SqlConnection) s (SqlCommand) sy (SqlDataAdapter Class) lia class‏ 


4 فضاء الأسماء ال0 .هtمm.0مtءرS‏ التي يجهز ل٥008‏ تحتوي على عدد كبير من sوهاع‏ منها 
(Odbc Connection) sy (Odbc Command) sı (Odbc DataAdapter Class)‏ 


تعرف على بقية فضائات الأسماء ضمن فضاء S1٠١. 02a‏ على الرابط التالي من مايكروسوفت 
رابط 
http: //msdn.microsoft.com/en-us/library/g9145028. aspx‏ 


لو تلاحظ آنواع فضائات الأسماء تتشابه في 5مم الخاص بكل فضاء مع اختلاف بسيط على سبيل المتال sوواع‏ فتح 
اتصال بقاعدة بيانات يكون بشكل التالي 


e e e e mm e mm mm mm mm mm e‏ س س س س س س س س ا ا ا ا ا ا ا ا ا ا ن ن ن .ا 


| Connection, a -_ | 


أ # في gÎرJSI‏ uiتخڏp (OracleConnection)‏ ' 


خطوة بخطوة نحو قاعدة بيانات ترضي العحميل حسین احمد طالب 


كما لاحظنا تتشابه هذه ههام في ما بينها في طريقة استقبال البارامترات إي انه إذا شرحنا عن 

Connection)‏ leDbا0)‏ وعرفنا کیف یتم استقبال البارامترات ٹيس ڊaحlجة‏ شرح (OracleConnecition)‏ و 
(nneeti0اوS)‏ لأنها يستقبلان البارمتر بنفس الطريقة إي انك في هذا الكتاب لن تتعلم فقط كيف تربط بقواعد 
بیانات أکسس بل ستتعلم کیف تربط بالا وراکل و S6۷6۲‏ ا5۵ .نعم یوجد هنا اختلاف بینهم لکن اختلاف لیس باستقبال 
البارامترات بمحتويات البارامترات نفسها 


# فضاء الأسماء ا2 ءا0a1a.0.٠ءاءرS‏ الذي يتعامل مع قواعد بيانات أكسس .! 


يمكنك هذا الفضاء من الاتصال وجلب المعلومات والتحكم به من قواعد بيانات أكسس . 
نستدعي فضاء الأسماء ا٥ءاa.0اةm”.0هاورS‏ عند كل برنامج قاعدة بيانات أكسس بشكل التالي 
لكي يمكننا من التعامل مع 5565| الموجود في داخله 
کود vb.net‏ 


Imports System.Data. OleDb 


تجدط ٥اa.0اm.2aءاysرS‏ وجمعي 5٥ءوءهاع‏ على الرابط التالي من مايكروسوفت 


http://msdn.microsoft.com/en-us/library/system. data. oledb. aspx 


خطوات الاتصال بقاعدة البيانات أكسس 


١‏ .كلاس (ەiاe0bConneeا0)‏ تستخدم لفتح اتصال جديد بقاعدة البيانات باستخدام الكود التالي 


Constructor 


Public CON As New OleDbConnection (ConString) 


)C0nS19(‏ هي جملة الاتصال التي تعرف بها مسار واداة قاعدة البيانات وتكون بشكل التالي 


(ConString)‏ ألاتصال مع قواعد بیانات الأكسس نستخدم الجملة التالية 


1.Public ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" 
& Database path 


(athم )Database‏ هو مسار قاعدة البيانات داخل الكومبيوتر 
اذا كانت قاعدة البيانات تحوي رمز مرور واسم مستخدم نتصل به بطريقة الاتية 


1.Public ConSiring As String = "provider=microsoft.jJet.oledb.4.0;data source=" & 
Database path & ;user id=admin; jet oledb:database password=***#*x*" 


عرفنا ٥(‏ أا ۴) لاننا قد نحتاج فتح اتصال من إي نافذة داخل البرنامج 


(icrosoft.jet.0ledb.4.0ص)‏ هي اداة التعامل ۷6.۸6 مع قواعد بیانات آکسس 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


(ConString) 4‏ للاتصال بقاعدة بيانات آأوراكل بطريفة التالية 


1.Public ConString As String = "Provider=MSDAORA.1;UserlD=scott;password=tiger; database=ora" 
E يعرف في منطفة التعريفات العامة من النافدة‎ )هnStrin9(‎ > 


يحتوي )OleDbConnecti0۸(‏ على Methods‏ التالیة 


)meth0لs(ةقيرطلا‎ 


ماع إغلاق الاتصال بقاعدة البيانات 


وتي على التصاص الا 


الخاصة 


معرفة اسم قاعدة البيانات التي تم الاتصال به 
جلب ملف الخادم أو اسم الملف ۲نا 2ج0 


تعرف على خصائص وطرق (sءھا٤ b/ci‏ 0ءا0) تجدها على الرابط التالي من مایکروسوفت 


رابط 


http://msdn.microsoft.com/en-us/library/system.data.oledb.oledbconnection. aspx 


ه ". من أجمل ما جاء في الدوت نت انه نستطيع اخذ نسخة من محتوياتها جميعا وخزنها في (€0۲1أمAda (Data‏ 
واستعمالها كيفما نشاء دون التأثير على المحتويات الأصلية. 
ونعرفها في حدٿث )]0۲۳-۱٥0۵۵(‏ حتى تحمل محتويات قاعدة البيانات في (۲1٥16م4۸42aأ0(2)‏ وتعرف 
بشكل التالي 


Constructor 


Dim DataAdapterl1l As New OleDbDataAdapter (conString, OleDbConnection) 
تاخذ بارا مترین‎ 


Connection) *‏ eDbا0)‏ هو اجراء الاتصال بقاعدة البیانات 
)conStrin9( *‏ هي جملة ]60 التي نستخدمها لاختيار وفلترة بيانات من الجدول 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


(SQL) 4‏ 
كما قلنا عنها هي لغة تستخدم للاختيار وفلترة البيانات من جداول قاعدة البيانات وتكون هيكليتها بشكل التالي 
SQL Structure SQL Structure‏ 


Select part_ setect From Tabel_ name 
Where Condation 


(ءteاse_اarم)‏ هي الاعمدة التي سنختارها من الجدول نضع بين عمود وعمود فارزة وإذا أردنا جميع 
لمحتويات نكتب ( ") 

)rabel_name) °‏ هو اسم الجدول في قاعدة البيانات الذي سنختار ونفلتر منه 

)C0ndati0¬( °‏ هي شروط الاختیار من الجدول 


مثال عملي: جدول اسمه (1٥اطه])‏ وفيه ثلاثة أعمدة هي (هاه,موه,م"هم) اكتب جملة (5@41) لطباعة الأسماء 
والأعمار من الجدول .؟ 


تحليل: هنا سنجعل (۲٠2۳"_ا٥طه۲)‏ هم اسم عمودين فقط من قاعدة البيانات 


کود 
Select name,age From table1‏ 


هذا الكود سوق يجلب جميع أسماء و عمر الأاشخاص في الجدول لاننا لم نحدده بشرط 


لو أردنا هذا المعلومات فقط لشخص (۴۸٥siوں"٣)‏ يكون الكود هکذا 


Select name,age From table1 
Where name like "۷ '% "۷ & "hussien" & "۷ %' "۷ 


۷ لأحظ طريقة وضع الاسم يوضع داخل علامة تنصيصية من الطرفين 
الرقم يوضع بدون علامة تنصيصية 


يحتوي (عم baa Ada‏ e0ءا0)‏ على Methods‏ لالتالیة 


الطريقة(s‏ ل0 )ne†‏ 
ataSet, tabelName)‏ ۴)0 تملى (ata Set‏ بجدول N42۳6‏ |عطه] من قاعدة البيانات التي تم الاتصال بها 


Update(DataSet)‏ يحدث محتويات 86 هج( في البرنامج 


تعرف على خصائص وطرق (ءءها٤‏ ۲ءام A2‏ هام( ط2ءا0) تجدها على الرابط التالي من مایکروسوفت 


رابط 


http://msdn.microsoft.com/en-us/library/system.data.oledb.oledbdataadapter. aspx 


خطوة بخطوة نحو قاعدة بيانات ترضي العحميل حسین احمد طالب 


يصبح الكود للاتصال وفتح قاعدة البيانات كامل بشكل التالي 


vb.net 

1. Imports System.Data 
2.Imports System.Data. OleDb 
3.Public Class Forml 


4.Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & 
Application. StartupPath & "\First .mdb" 

5.Public CON As New OleDbConnection (ConStr) 

6.Public DS As New DataSet 


7.Public SQLstr As String = "SELECT * FROM tablet " 


8.Private Sub Forml1 Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase. Load 


„. CON. Open () 

.Dim DataAdapterl1l As New OleDbDataAdapter (SQLstr, CON) 

.DataAdapter1.Fill (DS, "tabel1") 

. CON.Close () 

.Catch ex As Exception 

. MsgBox (ex.message, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "ء+lطZzخ‎ qف‎ 
الاتصال‎ "( 
16.End Try 


17.End Sub 


18.End class 


.١‏ خطوة رقم (١و٠)‏ هي تعريف للمكتبات الخاصة بقواعد البيانات 

1. خطوة رقم (٤و )٥١‏ هي فتح الاتصال بقاعدة البيانات وافترضنا أن قاعدة البيانات موجودة داخل مجلد وںطم للبرنامج 
۳. خطوة رقم )٦(‏ هي تعريف متغير من نوع أ56 هاج( لكي نخزن به جدول من قاعدة البيانات 

؟٤.‏ خطوة رقم (۷) هي جملة )5Q1(‏ لأختيار جميع محتويات قاعدة البيانات 

.٥‏ خطوة رقم )٠١(‏ هي فتح الاتصال بقاعدة البيانات 

DataAdapier1 Jخاد تعبئة محتويات قاعدة البيانات المختارة بجملة (5۵1( إلى‎ )١١( خطوة رقم‎ .٦ 

۷. خطوة رقم )۱١(‏ هي تعبئة محتويات قاعدة البيانات التي خزنت ب ١۲٥أم2ة‏ ك۸ 4ج0 الخاصة بجدول 1ا٥6طع]‏ فقط 
الى الى داخل (ئك) 


۸.خطوة رقم(۳١)‏ اغلقنا الاتصال بقاعدة البيانات بينما بقت محتوياتها داخل البرنامج 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


لكي نعرض محتويات قاعدة بيانات داخل 1سwء6|4۷iهه0‏ ندرجها ونغير الخصائص التالية لها 


DataGridView1.DataSource = DS 


DataGridView1.DataMember = " tabel1" 
DataGridView1.AllowUserToAddRows = False 


كج الخطر ات 
١.خطوة‏ رقم واحد هي جعل ء0 مصدر لقاعدة البيانات في 1سءDataG|4۷i‏ 
1.خطوة رقم اثنان وضعنا فقط محتويات الجدول 11ا٥‏ طه] داخل اداة العرض من بين الجداول في ء0 


٣.خطوة‏ رقم (۳) هي عد السماح للمستخدم بإضافة اسطر جديدة في 


مثال : تكوين قاعدة بيانات تحتوي على اسم وعمر ونربطها ببرنامج ۷6.۸6 


بداية نكون قاعدة بيانات أكسس خطوة خطوة لتعبئتها بالبيانات و للاتصال به 


.١‏ فتح برنامج الاكسس وأنشاء قاعدة البيانات جديدة 


قاعدة ساتات قا 
تشاع قاخدة بیاتات 85ع 
اہ ساتات آوچ کاتتات موخ 
اتسط الصلهصة: 


قعوات المميعات 
lasers tglxsPocumentEs',‏ 


3 الصزیة خضl# :OFfcE OnlinëE‏ 
EB fee Online‏ حوب | واب | #اات 1 
ما الحديد قي 7007 كجعععة؟ 
جوک 2007 وجه الجديد على أخوات اتر قاعغلية ي الحصول عل أحدت مجتوئ أثناء العمل فی تظاض Mir ASÖfÈ‏ 

لمساعدتك غى. تحقى _المحلومات وإعداد تقارير حولها 2007 Office‏ 

والمشاركة قيها سريعا فى بيثة يمكن إدارتها. تحزقه علس # الارشاد إلى واخهة سدم 2007 A255‏ 

المزند جو القحجسعات والمسزات العحديدة, 1 ES‏ 2 ا IS‏ 

5 تتظيم تاقة الخاتتات باستخدام حزء تقل القصول السعل 
اديك 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


١‏ .أنشاء أعمدة للجدول 


a al ْ î 8‏ | ال مگ 
جب وة ايت ل#اعادسمة © 0 :ا 4 


قوع البياقات والتنسمق 


EE‏ جنول :جنول 


نکون اعمده 
بالأسماء المطلوية 
فقط نحتار عمو جدید ونکتب اسمه 


السحاة ا* | K4‏ ا اا تصعبة سحت 


کے ا اکا وع التيانات: أ 
ERN‏ او حتف اتسيف نة 


قوع الييانات والنتسيق 


EE‏ جلولا :جنول 


نضغط هنا ثم 
يطلب حفظ الجدول اسم نعطيه الاسم المطلوب 


خطوة يبخطوة نحو قاعدة بيانات ترضي العميل 


٤‏ تحديد أنواع أعمدة الجدول هل هو نص أم رقم أم تاريخ أو غيره 


,کی سا 
| إدراج صقوقف 
و 


حزف صفوف 
اخخبار قواخه 
العحقق من . اة ع عفود البجت 1 1 


1 
نختار انواع البيانات التي 
سنخزنها داخل الاعمدة 


توغ البياتات توع القيم التي يمك أن يقوم 
موت بتخريتها قى الحقل, الحصول علي 
اتقات حول انواع :الساقات. افقطاع۴, 


ET اماد‎ 


طريقة عزف الصفم ۴6 = ديل الأجزاه ۴1 = تعيهات: 


E E ١  یقلما م سے کے حفط تدقیق‎ Ea EES 
* الخاا ارا اھ اف“ ا ا | 1 س ا کو نق ا ا قبديل عافل اة د ا د‎ 


اال هسق ا ا ارز وقصغية ت 


r name x 
1 hussien 
ا‎ 
3 
4 


(جدید) 


e .‏ الوا ۱ 
ويعدها نختار حوظ باصدار اوفس 
2003 


| السجلة ۸ ا ا Mua‏ 


Hê) E E || Mum Lock 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


ألان نكون برنامج جديد وندرج في النافذة أداة 4۷٥۷1‏ 6هه0 ونخزن قاعدة البيانات داخل مجلة (١1ط)‏ للمشروع 


a Formi 


يكون كود البرنامج كالتالي لعرض معلومات قاعدة البيانات دlاخViewJ DataGrid‏ 


vb.net 

1. Imports System.Data 
2.Imports System.Data. OleDb 
3.Public Class Forml 


4.Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & 
Application. StartupPath & "\firstdatabase1l .mdb" 

5.Public CON As New OleDbConnection (ConStr) 

6.Public DS As New DataSet 

7.Public SQLstr As String = "SELECT * FROM tabel " 


8.Private Sub Forml1 Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase. Load 


9.Try 

10. CON. Open () 

11.Dim DataAdapterl1l As New OleDbDataAdapter (SQLstr, CON) 
12.DataAdapter1.Fill (DS, "tabel") 

13. CON.Close () 

14.DataGridView1.DataSource = DS 

15.DataGridView1.DataMember = " tabel" 
16.DataGridView1.AllowUserToAddRows = False 

17.Catch ex As Exception 

18.MsgBox (ex.message, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "ء+lطbZخ‎ qف‎ 
الاتصال‎ "( 

19.End Try 

20.End Sub 

21.End class 


کما تلاحظ تم عرض جميع محتويات قاعدة البيانات 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


لو أردنا عرض فقط الأسماء نغير خطوة رقم (۷) إلى 


vb.net کود‎ 


7.Public SQLstr As String = "SELECT name FROM table " 


ا تا ا س af Form1‏ 


لو أردنا أن يرتبهم حسب العمر نغير خطوة رقم (۷) إلى 
کود vb.net‏ 


7.Public SQLstr As String = "SELECT name FROM table order by age " 


لو تلاحظ استخدمنا الدالة 6۲ ل۲م للترتيب حسب العمر يرتب من الأصغر إلى الأكبر 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


دJlg‏ ) Dataset yı DataTable‏ ڪڇ DataColumn‏ ڃ DataRow‏ ( چ 


یک 


Datase (4#‏ )هي فئة نكرن منها وهاه جديد لكي نملائه ببيانات من قاعدة بيانات أو من جداول نحن 
نصممها . ويملئ من قواعد البيانات عن طريق ۲عامجةك١۸‏ هه تعرف بشكل التالي 


vb.net کود‎ 
Dim ds As New DataSet 


.١‏ نستطيع الوصول إلى إي جدول داخل و بعد تعبئته بالبيانات بطريقة التالية 


کود vb.net‏ 
(ءاطaآ>xمهمi)‏ هو تسلسل الجدول بين جداول القاعدة ويبدء تسلسل الجداول من الصفر ويزداد(٠-١-۲-١)‏ 


vb.net کود‎ 
ds. Tables (indexTable) .Rows (RowIndex) . Item (ColoumsIndex) 
هو رقم الصف الذي نریدہ‎ )R0ساnde×(‎ 


)>ndexاumsداC0)‏ هو رقم العمود الذي نریدہ 


۳. مسح جمیع محتویات جداول داخل مsھ52‏ 


vb.net کود‎ 


.٤‏ تنظيف ٥ءه]ه0‏ من البيانات 


vb.net کود‎ 


Dataset إضافة جدول اِ‌ئ‌ى‎ .٥ 


vb.net کود‎ 


خطوة بخطوة نحو قاعدة بيانات ترضي الحميل حسین احمد طالب 


± (٥اab‏ 1 )D0ata‏ تستخدم للتعامل مع الجداول 
لو ردنا تکوین جدول جدید اسمه (1٥اطه))‏ 


Dim dt As new DataTable 
dt.TableName = "table1l" 


058 تكوين جدول جديد يحتوي على بيانات الجدول الأول في‎ .١ 


vb.net کود‎ 


كما قلنا تسلسل الجداول يبدأ من الصفر 


۲. اإضافة أعمدة إلى الجدول مثلا لإضافة عمود اسمه مصعم من نر ع Sg‏ 


vb.net 
Dim Name As DataColumn = New DataColumn ("name") 
Name.DataType = System. Type. GetType ("System.String") 
dt .Columns . Add (Name) 


۳. إضافة صف إلى الجدول مثلا لإضافة صف جديد إلى الجدول داخل عمود اسمه ٥٣ج"‏ 


vb.net 
Dim dr As DataRow 
dr = dt.Rows.Add 
dr. Item ("name") = "hussien ahmmed" 


D22۲ 2ا٥ مسح جميع محتویات جداول داخل‎ .٤ 


vb.net کود‎ 


dt.Clear () 


.٥‏ تنظيف مءاطهج هاه من البيانات 
كود vb.net‏ 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


مثال : تكوين الجداول بدون قاعدة بيانات.؟ 


نستطيع تكوين امءهه5 عن طريق عدة ايعازات تمكننا من تكوين جداول داخل أمsه†جD‏ 


خطوات تكوين 1٥5هه5‏ وملئه بالمعلومات 


.١‏ نكون جدول جديد عن طريق اط2 هه ونعطيه اسم معین 


vb.net 


Dim dt As new DataTable 
dt. TableName = "table1l" 


3 نقوم بتکوین أعمدة لهذا الجدول عن طريق ۳٣٣١‏ ںuاه٥ههD‏ متلا نريد إضافة عمود للاسم وعمود للعمر 


' add coloums for name 

Dim Name As DataColumn = New DataColumn ("name") 
Name.DataType = System. Type. GetType ("System.String") 
dt.Columns . Add (Name) 

' add coloums for age 

Dim age As DataColumn = New DataColumn ("age") 
age.DataType = System. Type. GetType ("System.String") 
dt .Columns . Add (age) 


حتى ألان أصبح لدينا جدول فيه عمودان لكنه فارغ من البيانات 


۳. إضافة بيانات إلى داخل الجدول عن طريق ۸0W‏ ه02 


Dim dr As DataRow 

dr = dt.Rows.Add 

dr.Item ("name") = "hussien ahmmed" 
dr.Item("age") = 23 


أضفنا صف جديد إلى الجدول ثم أضفنا بيانات الشخص حسين في حقل الاسم وعمره في حقل العمر 


.٤‏ نكون ا#ءهجD‏ ونضيف إليه الجدول ومحتوياته 


vb.net 
Dim ds As New DataSet 
ds.Clear () 
ds.Tables. Add (dt) 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


مثال عملي: افتح مشروع جديد وأدرج فيه 0264۷1٠۷1‏ وفي حدث التحميل اكتب هذا الكود 


vb.net 


Private Sub Forml1 Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase. Load 

Dim dt As New DataTable 

dt.TableName = "table1l" 

' add coloums for name 

Dim Name As DataColumn = New DataColumn ("name") 
Name.DataType = System. Type. GetType ("System.String") 
dt.Columns . Add (Name) 

' add coloums for age 

Dim age As DataColumn = New DataColumn ("age") 
age.DataType = System. Type. GetType ("System.String") 
dt .Columns . Add (age) 

Dim dr As DataRow 

For i1i = 0 To 7 

dr = dt.Rows.Add 

dr.Item ("name") = "hussien ahmmed" & i 
dr.Item("age") = 23 

Next 

Dim dss As New DataSet 

dss.Clear () 

dss.Tables. Add (dt) 

DataGridViewl.DataSource = dss 
DataGridViewl.DataMember = "table1l" 
DataGridViewl.AllowUserToAddRows = False 


End Sub 
DataGrid View1 لJخاد يعمل هذا الكود على تكون جدول وملئه بالمعلومات ثم عرضها‎ 


ألان نفذ البرنامج سيعرض لك جدول بطريقة التالية 


husaiêrahmmed0 
hussien ahmmed 1 


hussien ahmmedZ 


hussien ahmrmed3 


hussien ahmmed4 23 
hussien ahmmed5 23 


hussien ahmmedé | E! 


hussien ahmmed7 | 23 


ستلاحظ في الفصل الثالث كيف تعمل هذه الطريقة على تكوين جداول مفتوحة 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


عرض البيانات من داخل قاعدة البيانات إلى الكائنات على سطح النافذة: 


8 ( ×0× ) لكي نعرض محتويات قاعدة البيانات إلى داخل ×0طا×ه] هناك طريقتان : 


4 عن طريق خاصية DataBindings‏ لعرض محتويات احد الأعمدة جداول داخل ×٥ط]×٥]‏ نستخدم الکود 


vb.net 


Me.TextBoxname.DataBindings.Add ("Text'", Me.DS, "tabel.coloumName'" )‏ 
٠‏ (ا٥طه])‏ اسم الجدول الذي نرید ان نسند محتوی احد اعمدته داخل 0×1طا×ھ) 
* )umNameد‌اهدc)‏ هو اسم العمود في الجدول 


مثال:اذا اردنا في المثال السابق اسناد محتوى الاسماء من الجدول الاول الى 0×1ط1×ه] نكتب الكود التالي 


vb.net 
TextBox1.DataBindings.Add ("Text'", Me.DS, "tabel.name") 


vb.net 
Me.TextBox1.text= ds.Tables (indexTable) .Rows (RowIndex) . Item (ColoumsIndex) 


٭ (اeطھ[)‏ تربط بنفس طریقہ( ×0 طا×م] ) 


4 (×80ءهمع) نربطها في قاعدة البيانات اذا كان لدينا حقل نوعه منطقي قيمته اما نعم او لا فنستخدم هذه 
الطريقة لعرضه هكذا حقل داخل ×0 ٣٥٥١۸8‏ نستخدم طريق الجداول 


vb.net 


CheckBoxname.text= ds.Tables (indexTable) .Rows (RowIndex) . Item (ColoumsIndex) 


With ComboBoxName 

.DataSource = DS.Tables ("tabelName'" ) 
.DisplayMember = "ColumsName" 

End With 


)beNameطt)a)‏ هو اسم الجدول 
° () umsNameاc0)‏ هو عنوان الحقل الذي نرید عرض محتویاته داخل ×>ه8 ٤٥٥۳0‏ 
)€heckedListBoX ) **‏ و List 8B 0x)‏ ) تربط بنفس طريقَةٌ >ەb080‏ °0۳ 


4 كذالك بقية الكائنات تربط بنفس الطريقة 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


لعمل خاصية أكمال تلقائي لحقل معين داخل ×080ط 6٥٣‏ نستخدم الكود التالي 


Wıth ComboBoxName 
.DataSource = DS.Tables ("tabelName'") 


.DisplayMember = "ColumsName" 

.AutoCompleteSource = AutoCompleteSource.ListlIltems 
.AutoCompleteMode = AutoCompleteMode. Suggest 

End With 


التنقل بين السجلات فى قواعد البيانات چ 
هناك طريقتان للتنقل بين السجلات في قاعدة البيانات وهي: | 


(BindingContext) التنقل عن طريق‎ .١ 


Constructor 
تمكننا هذه الفئة من التنقل بين السجلات والانتقال لسجل معين ضمن جدول معين داخل قاعدة البيانات حيث تأخذ‎ 
. data Member بارامترين الأول قاعدة البيانات ه٠ uهSهاهه والثاني الجدول الذي نتقل به‎ 
وباستخدام خاصية ۸١٥1اوم۴ ننتقل الى السجل الذي نريده داخل الجدول وتكون بشكل التالي‎ 


Me.BindingContext (DataSetName, "tabelName") .Position =indexPosition 


الانتقال إلى السجل التالي : للانتقال إلى السجل التالي ضمن جدول معين نزيد هزوم بمقدار واحد لكي ينتقل 
للسجل الذي يليه ويكون الكود بشكل التالي 


vb.net کود‎ 


* (ء0) هي أ٥كهاج(0‏ التي نعبئها ببيانات قاعدة البيانات عند التشغيل 


٠‏ (ءاطه]ا) هو اسم الجدول داخل قاعدة البيانات الذي سنتحرك في داخله 


والكود السابق إذا وصل المؤشر إلى أخر سجل يتوقف لا يتحرك لأنه لا يوجد سجل بعده ولحل هذه المشكلة نستخدم 
الشرط التالي حتى عندما يصل أخر سجل ينتقل إلى الأول 


If Me.BindingContext (DS, "tabel") .Position = Me.BindingContext (DS, "tabel") .Count - 
1Then 

Me.BindingContext (DS, "tabel") .Position 

Else 

Me.BindingContext (DS, "tabel") .Position += 1 

End If 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


الانتقال إلى السجل السابق : للانتقال إلى السجل السابق ضمن جدول معین نقَلل ۸٥ا†زوم٥‏ بمقدار واحد کی 
ينتقل للسجل الذي يسبقه ويكون الكود بشكل التالي 


vb.net 


Me.BindingContext (DS, "tabel") .Position —= 1‏ 
(05) هي التي نعبئها ببيانات قاعدة البيانات عند التشغيل 
ه (ماطها) هو اسم الجدول داخل قاعدة البيانات الذي سنتحرك في داخله 


والكود السابق إذا وصل المؤشر إلى أول سجل يتوقف لأنه لا يوجد سجل قبله ولحل هذه المشكلة نستخدم الشرط التالي 
حتى عندما يصل أول سجل ينتقل إلى الأخير 


If Me.BindingContext (DS, "tabel") .Position = 0 Then 

Me.BindingContext (DS, "tabel") .Position = Me.BindingContext (DS, "tabel") .Count-—1 
Else 

Me.BindingContext (DS, "tabel") .Position —= 1 

End If 


ل# الانتقال إلى للسجل الأول : للانتقال إلى السجل الأول ضمن إي جدول نجعل ١٥اأومم‏ يساوي صفر لأن اول 
سجل موقعها هو صفر 


vb.net 


Me.BindingContext (DS, "tabel").Position = 0 


4 الانتقال إلى للسجل الأخير: للانتقال إلى السجل الأخير ضمن إي جدول نجعل ١٥ازومم٥‏ يساوي تسلسل اخر 
موقع في الجدول 


Me.BindingContext (DS, "tabel") .Position = Me.BindingContext (DS, "tabel") .Count-—1 


تعرف علی خصائص ٥٥۸1٥×۲(‏ 9ه ¡8) تجدها على الرابط التالي من مایکروسوفت 


http: //msdn.microsoft.com/en-us/library/system.windows. forms.bindingcontext (v=VS. 90) .aspx 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


۲. التنقل عن طريق الجداول 
تمكنك هذه الطريقة من الوصول إلى سجل معين وحقل معين كما شرحت سابقا عن طريق بإعطاء رقم الجدول 
ورقم الصف ورقم العمود ويكون الوصول وإسناد نتيجة الجدول مباشرة كما في الشكل التالي 


Constructor 


Me.TextBox1.text= ds.Tables (indexTable) .Rows (RowIndex) . Item (ColoumsIndex) 


قبل الشرح عن طريقة التنقل يجب أن نعلم انه هنا لا يوجد ١0|أوه۴‏ يعلمك في السجل الذي انت فيه لاننا سنتعامل مع 
الجداول مباشرة لذالك يجب تعريف متغير ولنسمية ×هك ٣102282561١‏ uه€‏ في حقل التعريفات العامة ونعطيه قيمة 
اول سجل(صفر) عند تشغيل البرنامج ومنه نستطيع التنقل بين السجل التالي والاحق 


vb.net ا‎ 
Public CountDataBaseIndex as integer=0 


بما أننا قلنا انه يسند قيمة الحقل بشكل مباشر لذالك سنفرض إن لدينا جدول اسمه اعطهآ ويحوي على حقل واحد 
اسمه "2۳٣٠‏ ونسند محتوى هذا الحقل عن التنقل إلى ×ج0طا×٥۲‏ 


الانتقال إلى السجل التالي : للانتقال إلى السجل التالي ضمن جدول معين نjزيد CountDataBaselndex‏ 
ENE‏ 


If CountDataBaselIlndex < ds.Tables (0) .Rows.Count — 1 Then 
CountDataBaselIndex = CountDataBaselndex + 1 


Else 

CountDataBaselIlndex 

End If 

TextBoxl1.Text = ds.Tables (0) .Rows (CountDataBaseIndex) . Item (0) 


الانتقال إلى السجل السابق : للانتقال إلى السجل السابق ضمن جدول معین نفذJ CountDataBaselndex‏ 
بمقدار واحد لكي ينتقل للسجل الذي يسبقه ويكون الكود بشكل التالي 


If CountDataBaselndex > 0 Then 

CountDataBaselIlndex CountDataBaselIndex — 1 

Else 

CountDataBaselIlndex ds.Tables (0) .Rows.Count — 1 

End If 

TextBox1l1. Text . Tables (0) .Rows (CountDataBaseIndex) . Item (0) 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


# الانتقال إلى للسجل الأول : للانتقال إلى السجل الأول ضمن إي جدول نجعل ×هلہ|امCountİDa†a82s‏ يساوي 
صفر لأن اول سجل موقعها هو صفر 


vb.net 


CountDataBaseIndex = 0 
TextBox1.Text = ds.Tables (0) .Rows (CountDataBaseIndex) . Item (0) 


# الانتقال إلى للسجل الأخير: للانتقال إلى السجل الأخير ضمن إي جدول نجعJ CountDataBaselndex‏ 
يساوي تسلسل اخر موقع 


CountDataBaselIndex = ds.Tables (0) .Rows.Count — 1 
TextBoxl1.Text = ds.Tables (0) .Rows (CountDataBaseIndex) . Item (0) 


مثال: نريد إن نكون أزرار واحد للسجل التالي وأخر للسجل السابق وأخر للأول وأخر للأخير وعندما يضغط على إي 
سجل تظهر معلوماته في ]٥×100×‏ وقاعدة البيانات تحتوي اسماء مستخدمين وأعمارهم(g6ه,٥"4۳١)‏ 


سوف نستخدم أجراء نكتب فيه كود ملئ ×مط]×ه] من قاعدة البيانات وعند كل ضغط على احد الأزرار نستدعيه حتى 
يملا × ط×ه] ببيانات السجل المطلوب 


name raffed 


(Binding Context) ةطسlgڊ‎ Jماک كود البرنامج‎ 


Imports System.Data 

Imports System.Data. OleDb 

Public Class Forml 

Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & 
Application. StartupPath & "\db1 .mdb" 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


Public CON As New OleDbConnection (ConStr) 

Public DS As New DataSet 

Public SQLstr As String = "SELECT * FROM tabel " 

'sub we load it at evry event to fill text with data 

Sub addDataContent () 

On Error Resume Next 

Me.TextBox1lname.DataBindings.Add ("Text'", Me.DS, "tabel.name") 
Me.TextBoxZage.DataBindings.Add ("Text'", Me.DS, "tabel .age") 

End Sub 

Private Sub Forml1l Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase. Load 

Try 

CON . Open () 

Dim DataAdapterl1l As New OleDbDataAdapter (SQLstr, CON) 

DataAdapter1.Fill (DS, "tabel") 

addDataContent () 

CON.Close () 

Catch ex As Exception 

MsgBox (ex.Message, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "ء«lطZخ‎ qف‎ لJلاصتالا"(‎ 
End Try 

End Sub 

'previous record 

Private Sub Buttonl Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles previous.Click 

If Me.BindingContext (DS, "tabel") .Position = Me.BindingContext (DS, "tabel") .Count — 1 
Then 

Me.BindingContext (DS, "tabel") .Position = 0 

Else 

Me.BindingContext (DS, "tabel") .Position += 1 

End If 

addDataContent () 

End Sub 

.next record 

Private Sub Button2 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 

If Me.BindingContext (DS, "tabel") .Position = 0 Then 

Me.BindingContext (DS, "tabel") .Position = Me.BindingContext (DS, "tabel") .Count — 1 
Else 

Me.BindingContext (DS, "tabel") .Position —= 1 

End If 

addDataContent () 

End Sub 

'l]last record 

Private Sub last_ Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles last.Click 

Me.BindingContext (DS, "tabel").Position = Me.BindingContext (DS, "tabel") .Count — 1 
addDataContent () 

End Sub 

'first record 

Private Sub first_ Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles first.Click 

Me.BindingContext (DS, "tabel") .Position = 0 

addDataContent () 

End Sub 

End Class 


خطوة بخطوة نحو قاعدة بيانات ترضصي الحميل حسین /حمد طالب 


كود البرنامج كامل بواسطة الجداول 
ك ا vb.net‏ 


Imports System.Data 

Imports System.Data. OleDb 

Public Class Form1l 

Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & 
Application. StartupPath & "\db1 .mdb" 

Public CON As New OleDbConnection (ConStr) 

Public DS As New DataSet 

Public SQLstr As String = "SELECT * FROM tabel " 

Public CountDataBaseIndex As Integer = 0 

Sub addDataContent () 

On Error Resume Next 

Me.TextBoxl1lname. Text = DS.Tables (0) .Rows (CountDataBaselIlndex) . Item (1) 
Me.TextBoxZage. Text = DS.Tables (0) .Rows (CountDataBaseIndex) . Item (2) 

End Sub 

Private Sub Forml1l Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 

Try 

CON . Open () 

Dim DataAdapterl1l As New OleDbDataAdapter (SQLstr, CON) 

DataAdapter1.Fill (DS, "tabel") 

CON.Close () 

addDataContent () 

Catch ex As Exception 

MsgBox (ex.Message, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "ء+lطZخ في‎ لJلاصتالا"(‎ 
End Try 

End Sub 

'next 

Private Sub Buttonl1l Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles previous.Click 

If CountDataBaselIlndex < DS.Tables (0) .Rows.Count — 1 Then 

CountDataBaseIndex = CountDataBaselIlndex + 1 

Else 

CountDataBaseIndex = 0 

End If 

addDataContent () 

End Sub 

'previous 

Private Sub Button2 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 

If CountDataBaseIndex > 0 Then 

CountDataBaseIndex = CountDataBaselIlndex — 1 

Else 

CountDataBaselIndex = DS.Tables (0) .Rows.Count — 1 

End If 

addDataContent () 

End Sub 

'last 

Private Sub last_ Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles last.Click 

CountDataBaselIndex = DS.Tables (0) .Rows.Count — 1 

addDataContent () 

End Sub 

Private Sub first_ Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles first.Click 'first record go to it 

CountDataBaseIndex = 0 

addDataContent () 

End Sub 

End Class 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


إضافة سجل جديد إلى جدول 


نستخدم جملة (۸7 N5٤‏ |) و OleDbCommand‏ لادخال سجل جدید الی قاعدة البیانات 


ه جملة )|NS٤۸١(‏ هي جمل 841 تستخدم بشكل التالي 
کود 


"INSERT INTO tabel (ColNamel, ColName2 )" & _"values ('" & datal & "','" & data2& "' ) " 


لاحظ حقل ۳٥1‏ ه١‏ |60 البيانات التي ستضاف في داخله هي 1هاهك 
وان البيانات التي ستضاف في داخل عمود ۳٠٥2‏ اه٤‏ هي 2ههك وكذالك بالنسية لللبقية 


(OleDbCommand) ©‏ هي أوامر ADO.NET‏ نستطیيع من خلالها أجراء عملیات کا قاعدة البيانات بو اسطة 
جملة 5Q1‏ كأمر قاعدة البيانات بإضافة سجل جديد وتكون هيكليته بشكل التالي 


Constructor 
تأخذ بارا مترین‎ 

Connection) *‏ eDbا0)‏ هو اجراء الاتصال بقاعدة البيانات 

)conStrin9( °‏ هي جملة 5601 التي نريد تنفيذها 


# وتحتوي (ل٬ة"٣ ٤٣٥٣"‏ ط٥ءا0)‏ على الاجرائات التالية 
الطريقة)hods (met‏ 
CommandType‏ هي نوع الأمر الذي سيتم تنفيذه 


ExecuteNonQuery()‏ هي لبدء تنفيذ الأمر 


تعرف على خصائص (ءءھا٤ ٣٥0٣٣2٣٩‏ طدءا0) تجدها على الرابط التالي من مایکروسوفت 


رابط 


http://msdn.microsoft.com/en-us/library/system.data.oledb.oledbcommand. aspx 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


مثال: لدینا جدول اسمه 56۲ل يحتوي على الأعمدة التالية (اسم المستخدم وتاريخ دخوله وسماحية) مطلوب إدخال 
معلو مات لشخص واحد داخل قاعدة البيانات .؟ 
# بما انه أنواع بيانات الجدول مختلفة فأسم المستخدم يكون من نوع و"أ٣]ء‏ وتاريخ دخوله من نوع ماه 
وسماحيتة تكون من نوع 4۸ء امه إما نعم او لا لإدخال هذه البيانات المختلفة في الجدول نستخدم الطريقة 
التالية 
.١‏ نشتق كائن جديد من نوع (ل 2" ٤٥"‏ طد5ءا0) ونجعل (و" 5۲1م هء) الخاصة به بشكل التالي ومقابل كل 


vb.net کود‎ 


Dim cmd As New OleDbCommand ("insert into users (name, date, allow) values (?, ?, ?)'", con) 


حيث )00١(‏ هي قاعدة البيانات التي فتحنا اتصال معها 


۲. ندخل كل حقل على حدة حسب نو عه باستخدام Parameters.AdAWi1h Value‏ وتكون طريقة 
الإدخال بشكل التالي 


cmd. Parameters.AddWithValue ("@(JJizll pw", OleDbType.aegi) .Value ="ÃilZخدınم‎ تJlنlaıب"‎ 


فتصبح كود ما11۷2¡ Parameters.A44W‏ كاملة للأعمدة الثلاثة بشكل التالي 


cmd.Parameters.AddWithValue ("@Gname'", OleDbType.VarChar) .Value ="hussien" 
cmd.Parameters.AddWithValue ("@Gdate ", OleDbType.VarChar) .Value = "2011/12/1" 
cmd.Parameters.AddWithValue ("@Gallow'", OleDbType.Boolean) .Value = True 


. نقوم بتتفيذ عملية الإضافة 


vb.net 
con. Open () 
cmd. ExecuteNonQuery () 
con.Close () 


ليصبح كود الإضافة للجدول بشكل كامل كالتالي 


cmd As New OleDbCommand ("insert into users (name, date, allow) values (?, ?,?)'", con) 
.Parameters.AddWithValue ("@name'", OleDbType.VarChar) .Value ="hussien" 
.Parameters.AddWithValue ("@date ", OleDbType.VarChar) .Value "2011/12/1" 
.Parameters.AddWithValue ("@Gallow'", OleDbType. Boolean) .Value True 

. Open () 

. ExecuteNonQuery () 

. Close () 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


# أذا كانت أنواع الحقول نصوص أو مذكرة أو تاريخ أو رقم نستطيع استخدام الطريقة التالية للاضافة 


إضافة سجل جديد في البرنامج السابق (الذي كان يحتوي على أسماء مستخدمين واعمارهم) نكون فورم جديدة بنفس شكل 
الفورم وأدوات الفورم الأساسية ونضع فيها زر واحد نسميه إضافة نستخدم الكود التالي 


vb.net 
Try 
Dim SavIntol As New OleDb. OleDbCommand 
Dim Conn As New OleDbConnection (ConStr) 
SavIntol1l.Connection = Conn 
SavIntol.CommandType = CommandType . Text 
SavIntol.CommandText = "INSERT INTO tabel (name, age )" & 
"values ('" & TextBoxlname.Text & "','" & TextBox2age.Text & "' ) 
Conn . Open () 
SavInto1l .ExecuteNonQuery () 
Conn.Close () 
Mكg980×‎ ) ,"بنجاح البيانات قاعدة في والحفظ الاضافة عملية تمت"‎ MsgBoxStyاe.‎ Information, 
("بنجاح العملية‎ 
Catch ex As Exception 
MsgBox (Err.Description, MsgBoxStyle.Critical, "Error") 
End Try 


هذه الطريقة تسمح بتكرار سجلات داخل قاعدة البيانات بنفس الاسم إي إذا أضفنا سجل جديد بنفس اسم سجل مخزن 
داخل قاعدة البيانات سوف يضيفه ولا يعترض عليه وفي بعض البرامج نحتاج أن لا يتكرر اسم حقل معين داخل قاعدة 
الببانات 


ولحل هذه المشكلة نبني دالة تستقبل الاسم الجديد المراد حفظه في قاعدة البيانات وتقارنه بجميع الأسماء المخفوضة 


هذا الكود يبحث عن الاسم المدخل في جدول اعمط و عمود الأسماء اسمه 406" يقع ثاني حقل في جدول 


vb.net 


Function NameIsFoundINDataBase (ByVal namesis As String) As Boolean 

On Error Resume Next 

NameIsFoundINDataBase = True 

For 1 = 0 To ds.Tables (0) .Rows.Count — 1 
If String.Equals (Trim (namesis), ds.Tables (0) .Rows (i) .Item (1)) Then 

NameIsFoundINDataBase = False 

End If 

Next 

End Function 


5 تم تعبئته ببيانات من قاعدة البيانات 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


حذف سجل من جدول 


نستخدم جملة ( (DEL ٤ ۲ ٤‏ لحذف سجل من قاعدة البيانات 


sQL کود‎ 
ESSEN SOE NEE SOG ENT EOE 


)rextBoX1name.eX1(‏ يحذفە 


نستخدم هنا أوامر d(‏ 2ص ٥b C٥‏ eا0)‏ للحذف 


لحذف سجل في البرنامج السابق نستخدم الكود التالي 


vb.net 
Try 
Dim SavInto As New OleDb.OleDbCommand 
SavInto.Connection = CON 
SavInto.CommandType = CommandType . Text 
SavInto. CommandText "DELETE FROM tabel WHERE name ='" & Trim (Me.TextBoxl1lname. Text) & 
CON . Open () 
SavInto.ExecuteNonQuery () 
CON. Close () 
Msg١g80× ) ,"بنجاح البيانات قاعدة في الحذف عملية تمت"‎ MsgBoxStylاe.‎ Information + 
MsgBoxStyle .MsgBoxRight, "zحlجi‎ ةıلlnعgلlا")‎ 
Catch ex As Exception 
MsgBox (ex.Message, MsgBoxStyle.Critical, "Error Delete") 
End Try 


اسل طريقة للحذف متلا أننا نعرض اننفاء السجلات عند تصفحها داخل (TextBox1name. Text)‏ فنستخدم دالة 
الحذف اعتمادا على هذا الخقل 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


تعديل سجل 3 


نستخدم جملة (۴0۸۲۴ل) لحذف سجل من قاعدة البيانات ن 


sql کود‎ 


"UPDATE tabel set Colname=newData WHERE name=" & "'" & TextBoxl1lname. Text & '"'" 


* (nameاد)‏ هو اسم العمود الذي نرید تغیر محتواہ 

* (هاaسعم)هي‏ البيانات الجديدة التي نريد وضعها في داخل العمود 

)WHERE name=)‏ هنا اعتمدنا على اسم الشخص للوصول الى سجله .اي متی ما وجد سجل بنفس محتویات 
eX (‏ .tBox1name×ەآ)‏ سیعدل عليه 

٠‏ لتعديل أكثر من سجل نضع بينهم فارزة 


لتعديل على سجل في البرنامج السابق نكون فورم جديدة بنفس شكل الفورم وأدوات الفورم الأساسية ونضع فيها زر 
واحد نسميه تعديل نستخدم الكود التالي .وفي زر تعديل في الفورم الأولى نحولها محتويات السجل إلى الفورم الثاني 
لأتعدبل 


۰ 


vb.net 
Try 
Dim SavIntol As New OleDb. OleDbCommand 
Dim Conn As New OleDbConnection (ConStr) 
SavIntol1l.Connection = Conn 
SavInto1l1.CommandType = CommandType . Text 
SavIntol.CommandText = "UPDATE tabel set age=" & "'" & TextBoxZage.Text & "'" & 
".name=" & "''" & TextBoxl1lname.Text & "'" & '" WHERE name=" & "'" & 
Form1. TextBox1name. Text & "'" 
Conn . Open () 
SavIntol .ExecuteNonQuery () 
Conn.Close () 
Form1 .updatTheDataBase () 
MsgBox ("م۾pĞ ,"بنجاح التعدیيل‎ MsgBoxStyle. Information, ("بنجاح العملية تمت"‎ 
Catch ex As Exception 
MsgBox (Err.Description, MsgBoxStyle.Critical, "Error") 
End Try 


د بقي إن نضيف أجراء يقوم بتحديت بيانات قاعدة المعلومات داخل البرنامج بعد كل إضافة وتعديل وحذف 
نستدعیه هکدا 


Sub updatTheDataBase () 
Dim DataAdapterl1l As New OleDbDataAdapter (SQLstr, CON) 
DS.Clear () 
DataAdapter1.Fill (DS, "tabel") 
End Sub 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


لنطور المتال السابق ونجعل ( )]٥١٣1‏ بشكل التالي 


name hussien 


age 2231 


اسای لایر اسای الاو ے 
rr‏ 


ونكتب كود هذه الفورم هكدا 


Imports System.Data 
Imports System.Data. OleDb 
Public Class Forml 


Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & 
Application. StartupPath & "\db1 .mdb" 

Public CON As New OleDbConnection (ConStr) 

Public DS As New DataSet 

Public SQLstr As String = "SELECT * FROM tabel " 

Sub addDataContent () 

On Error Resume Next 

Me.TextBoxlname.DataBindings.Add ("Text'", Me.DS, "tabel.name") 
Me.TextBoxZage.DataBindings.Add ("Text'", Me.DS, "tabel.age") 

End Sub 

د الة تقوم بتحديث محتويات قاعدة البيانات في البرنامج بعد كل اضافة وحذف وتعديل' 

Sub updatTheDataBase () 

Dim DataAdapterl1l As New OleDbDataAdapter (SQLstr, CON) 

DS.Clear () 

DataAdapter1.Fill (DS, "tabel") 

End Sub 

Private Sub Forml1l Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 


Try 

CON . Open () 

Dim DataAdapterl1l As New OleDbDataAdapter (SQLstr, CON) 

DataAdapter1.Fill (DS, "tabel") 

CON.Close () 

addDataContent () 

Catch ex As Exception 

MsgBox (ex.Message, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "ء+lطZخ في‎ لJلاصتالا"(‎ 
End Try 

End Sub 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


كود زر السجل السابق' 
Private Sub Buttonl Click (ByVal sender As System.Object, ByVal e As System.EventArgs)‏ 
Handles previous.Click‏ 


If Me.BindingContext (DS, "tabel") .Position = Me.BindingContext (DS, "tabel") .Count — 1 


Then 

Me.BindingContext (DS, "tabel") .Position = 0 
Else 

Me.BindingContext (DS, "tabel") .Position += 1 
End If 


addDataContent () 


End Sub 

كوة زر السجل. التكالي' 

Private Sub Button2 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 

If Me.BindingContext (DS, "tabel") .Position = 0 Then 

Me.BindingContext (DS, "tabel") .Position = Me.BindingContext (DS, "tabel") .Count — 1 
Else 

Me.BindingContext (DS, "tabel") .Position —= 1 

End If 

addDataContent () 

End Sub 

كود زر السجل الاخير ' 

Private Sub last_ Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles last.Click 

Me.BindingContext (DS, "tabel") .Position = Me.BindingContext (DS, "tabel") .Count — 1 
addDataContent () 

End Sub 

كود زر السجل الاول' 

Private Sub first_ Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles first.Click 

Me.BindingContext (DS, "tabel") .Position = 0 


addDataContent () 

End Sub 

كود زر اضافة' 

Private Sub addnew Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles addnew.Click 

AddOrEdit. Show () 

End Sub 

كود زر الحذف' 

Private Sub Buttonl1l Click 1(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles delete.Click 

Try 

Dim SavInto As New OleDb.OleDbCommand 

SavInto.Connection = CON 

SavInto.CommandType = CommandType . Text 

SavInto.CommandText = "DELETE FROM tabel WHERE name ='" & Trim (Me.TextBoxlname. Text) & 
CON . Open () 

SavInto.ExecuteNonQuery () 

CON.Close () 

استدعينا الدالة بعد الحذف لتحديث البيانات' 

updatTheDataBase () 

Information +‏ .eاMsgBoxStyl‏ ,"بنجاح البيانات قاعدة في الحذف عملية تمت" ) ×80 Msg‏ 
)"اlلaعlnلıة‏ iجlحzح" MsgBoxStyle .MsgBoxRight,‏ 

Catch ex As Exception 

MsgBox (ex.Message, MsgBoxStyle.Critical, "Error Delete") 

End Try 

End Sub 


خطوة بخطوة نحو قاعدة بيانات ترضصي الحميل حسین /حمد طالب 


كود زر تعديل' 
Private Sub Buttonl1l Click 2 (ByVal sender As System.Object, ByVal e As System.EventArgs)‏ 
Handles Button1l.Click‏ 


AddOrEdit . Show () 

AddOzrEdit .TextBoxl1name. Text Me.TextBoxl1lname. Text 
AddOrEdit. TextBoxZ2Zage. Text Me.TextBoxZage. Text 
End Sub 

End Class 


ونكون فورم جديدة نسميها (1أا۸400۲d)‏ بشكل التالي للحذف والاضافة 


J AddOrEdî = 


name hussien 


age FFE 


ونکتب کودها 


vb.net 


Imports System.Data 

Imports System.Data. OleDb 

Public Class AddOrEdit 

Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & 
Application. StartupPath & "\db1 .mdb" 

Public CON As New OleDbConnection (ConStr) 

Public DS As New DataSet 

Public SQLstr As String = "SELECT * FROM tabel " 

اضافة ' 

Private Sub addnew_ Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles addnew.Click 

Try 

Dim SavIntol As New OleDb. OleDbCommand 

Dim Conn As New OleDbConnection (ConStr) 

SavIntol1l.Connection = Conn 

SavIntol.CommandType = CommandType . Text 

SavIntol.CommandText = "INSERT INTO tabel (name,age )" & _ 

"values ('" & TextBoxlname.Text & "','" & TextBox2age.Text & "' ) 

Conn . Open () 

SavIntol .ExecuteNonQuery () 

Conn.Close () 

Form1 .updatTheDataBase () 

Ms980× ) ,"بنجاح البيانات قاعدة في والحفظ الاضافة عملية تمت"‎ MsgBoxStyاle.‎ Information, 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


("بنجاح العملية 

Catch ex As Exception 

MsgBox (Err.Description, MsgBoxStyle.Critical, "Error") 

End Try 

End Sub 

تعديل 1 

Private Sub Buttonl Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1l.Click 


Try 

Dim SavIntol As New OleDb. OleDbCommand 
Dim Conn As New OleDbConnection (ConStr) 
SavIntol.Connection = Conn 
SavIntol.CommandType = CommandType . Text 


SavIntol.CommandText = "UPDATE tabel set age=" & "'" & TextBoxZage.Text & "'" & 
".name=" & "''" & TextBoxlname.Text & "'" & " WHERE name=" & "'" & 

Form1. TextBox1name. Text & "'" 

Conn . Open () 

SavIntol .ExecuteNonQuery () 

Conn.Close () 

Form1 .updatTheDataBase () 

MsgBox ("مpĞ‎ Jليدعتلا ,"بنجاح‎ MsgBoxStyle. Information, ("بنجاح العملية تمت"‎ 
Catch ex As Exception 

MsgBox (Err.Description, MsgBoxStyle.Critical, "Error") 

End Try 

End Sub 

End Class 


البرنامج موجود في المرفقات بأسم (program Data1)‏ 


خطوة بخطوة نحو قاعدة بيانات ترضصي الحميل حسین /حمد طالب 


البحث في السجلات: 


للبحث داخل السجلات نستخدم 601 لإيجاد الاسم الذي نبحث عنه في قاعدة البيانات . 
وهناك طريقتان للبحث 


.١‏ أن تكون نتيجة البحث مطابقة ٠:‏ يعنى يجب أن تتشابه جميع الحروف فى هذه الحالة نستخدم التساری ذ 
اون س : e‏ ل EE‏ وت جي م و 
جملة 1ا6۵ بشكل التالي. 


الكود التالي يقوم بالبحث عن اسم شخص في جدول اسمه مءاطه۲ ويقوم بأضهار نتائج البحث داخJ Datagridview‏ 


vb.net 
On Error Resume Next 
DataGridView1l1.DataSource = DataGridView1.DataBindings 
MyROWS = DS.Tables ("tabel") .Select ("name '%" & Trim (TextBoxl.Text) & "%'") 
Dim FoundRows As DataTable = DS.Tables ("tabel") .Clone 
For Each dr In MyRows 
FoundRows. ImportRow (dr) 
DataGridViewl.DataSource = FoundRows 
Next 


۲. أن تكون نتيجة البحث مشابه أو مقاربة: في هذه الحالة من البحث لا يشترط أن تتشابه نتيجة البحث تماما 
مع ما نبحث عنه 


الكود التالي يقوم بالبحث عن اسم شخص في جدول اسمه ءاطج ويقوم بأضهار نتائج البحث داخل سء Daag vi‏ 


vb.net 
On Error Resume Next 
DataGridViewl1l.DataSource = DataGridViewl1l.DataBindings 
MyROWS = DS.Tables ("tabel") .Select( " name LIKE '%" & Trim (TextBoxl.Text) & "%'") 
Dim FoundRows As DataTable = DS.Tables ("tabel") .Clone 
For Each dr In MyROows 
FoundRows. ImportRow (dr) 
DataGridViewl.DataSource = FoundRows 
Next 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


البحث بين فترتين من التاريخ: 
EE EG CL OO CG CE‏ 


مضبوطة في حالة كان التاريخ ليس على النسق المطلوب طورت هذه الطريقة وجعلته يقوم بالبحث بشكل مضبوط (هذا 
الكود يقوم بالبحث اعتماد على البيانات الموجودة دlخDatagridviewÛJ‏ ( 


vb.net کود‎ 


Try 

Dim d As Date = Format (DateTimePickerl1.Value.Date, "yyyy/MM/dd") 'Begin data 
Dim d1 As Date = Format (DateTimePicker2.Value.Date, "yyyy/MM/dd") 'end Data 
Dim k As Integer 

dt = Form1.DS.Tables ("tablelstd") 

dt .Rows.Clear () 

dt = New DataTable 

dt.TableName = "tablelstd" 

dt.Columns. Clear () 

' to make table like first tabel 

For i = 0 To countername -— 1 

Dim Name As DataColumn = New DataColumn (arraynames1l (i) ) 

Name.DataType = System. Type. GetType ("System.String") 

dt.Columns . Add (Name) 

Next 


Dim dr As DataRow 

For i1i = 0 To DataGridView1l.ColumnCount — 1 

' put here the name of colums you ssearch in it 

If DataGridViewl.Columns (i1) .HeaderText.ToString ="ColoumSerchInItName" Then 

For ] = 0 To DataGridViewl.RowCount — 1 

Try 

If Trim (DataGridView1l.Item(i, jJ) .Value.ToString) <> "" Then 

If DateDiff (DatelIlnterval.Day, CDate (DataGridViewl.Item(i, jJ) .Value.ToString), dQ) <= 0 
And DateDiff (DateInterval.Day, CDate (DataGridViewl.Item(i, jJ) .Value.ToString), d1) >= 0 
Then 

dr = dt.Rows.Add 

For k = 0 To DataGridView1l.ColumnCount — 1 

dr. Item (DataGridView1.Columns (k) .HeaderText.ToString) = DataGridViewl. Item (k, 

j) .Value.ToString 

Next 


End If 


End If 

Catch ex As Exception 

End Try 

Next 

End If 

Next 

Dim dss As New DataSet 

dss.Clear () 

dss.Tables. Add (dt) 
DataGridViewl.DataSource = dss 
DataGridViewl.DataMember = "tablelstd" 
DataGridViewl.AllowUserToAddRows = False 
Catch ex As Exception 

MsgBox (ex.Message) 

End Try 


مصفوفة () 2۲۲/۸4۸851 يحتوي على جميع اسماء الحقول في الجدول و بالانكليزية 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


البحث في جميع حقول قاعدة البيانات 


أفضل وسيلة لتكوين برنامج يرضي المستخدم (العميل) في عملية البحث وتكوين برنامج له القدرة على البحث في 
جميع حقول قاعدة البيانات هي بإتباع الخطوات التالية 
نفترض إننا لدينا قاعدة بيانات تحتوي على أسماء مستخدمين وأعمارهم في الحل التالي 


بداية نكون فورم كما في الشكل وندرج به الأدوات كما هي مبينه 


.١‏ نكون دالة تحول أسماء حقول W1ء6/10۷iهه0‏ الى مايقابلها بالعربية 


والفائدة منها هي لتحويل أسماء حقول قاعدة البيانات المعروضة في W1‏ 64۷6اج( بعد كل عملية بحث إلى 
العربية 


Function ReplacedNamesE2A (ByVal RecivedNames As String) As String 
Select Case RecivedNames (0) 

Case Wa ¥ To Wa I1 

Select Case RecivedNames 

Case "age" 

ReplacedNamesE2A "الغعفر"‎ 

Case "name" 

ReplacedNamesE2A "الكامل الاسم"‎ 
Case Else 

ReplacedNamesE2A ا‎ 

End Select 

Case Else 

ReplacedNamesE2A RecivedNames 
End Select 

End Function 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


1. نكون دالة أخرى تعمل العكس تحول أسماء الحقول العربية إلى الانكليزية 
والفائدة منها هي عند استدعاء عملية البحث عن ما موجود في 0×1 08ط٠ 6٥‏ يحوله من العربية الى الانكليزية 
لكي يتمكن من البحث عن الحقل المطلوب 


vb.net 
Function ReplacedNamesAZ2E (ByVal RecivedNames As String) As String 
Select Case RecivedNames 
Case "رnagلlا"‎ 
ReplacedNamesAZ2ZE = "age" 
Case "pمسال| الكامل‎ 


ReplacedNamesA2E "name" 
Case Else 
ReplacedNamesAZ2ZE = 

End Select 

End Function 


العربية 


Sub FillDataToDataGridAndcombo () 
ComboBox1l1. Items. Clear () 

For 1 = 1 To DataGridView1l.ColumnCount — 1 

Try 

DataGridViewl.Columns (1) . HeaderText = 
ReplacedNamesE2A (DataGridView1l.Columns (i) .HeaderText) 
المتوفرة بالحقوا الاسماء قائمة نملاا'‎ 

ComboBox1. Items. Add (DataGridView1. Columns (i1) . HeaderText) 
Catch ex As Exception 

End Try 

Next 

End Sub 


.٤‏ ونكتب في حدث معو ج »ه۲ الخاص ب 1]6×8B0×1‏ كود عملية البحث 


On Error Resume Next 

DataGridViewl1l.DataSource = DataGridViewl1l.DataBindings 

MyROWS = DS.Tables ("tabel") . Select (ReplacedNamesAZ2ZE (ComboBox1l1. Text) & " LIKE 
Trim (TextBox1.Text) & "%'") 

Dim FoundRows As DataTable = DS.Tables ("tabel") .Clone 

For Each dr In MyRows 

FoundRows. ImportRow (dr) 

DataGridViewl1l.DataSource = FoundRows 

Next 

F1llDataToDataGridAndcombo () 


ه. وفي حدث الخاص بتحميل الفورم الكود التالي 


vb.net 
Try 
CON . Open () 
Dim DataAdapterl1l As New OleDbDataAdapter (SQLstr, CON) 
DataAdapterl1l.Fill (DS, "tabel") 
CON.Close () 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


DataGridViewl.DataSource = DS 
DataGridViewl.DataMember = "tabel" 
DataGridViewl.AllowUserToAddRows = False 
Fi1llDataToDataGridAndcombo () 


Catch ex As Exception 
MsgBox (ex.Message, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "ء+lطZخ في‎ لJلاصتالا"(‎ 


End Try 
ليصبح كود البرنامج كامل بشكل التالي‎ 


vb.net کود‎ 


Imports System.Data 

Imports System.Data. OleDb 

Public Class search 

Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & 
Application. StartupPath & "\db1 .mdb" 

Public CON As New OleDbConnection (ConStr) 

Public DS As New DataSet 

Public SQLstr As String = "SELECT * FROM tabel " 

Dim MyRows () As DataRow 

Function ReplacedNamesE2A (ByVal RecivedNames As String) As String 

Select Case RecivedNames (0) 

Case a To Wg 

Select Case RecivedNames 

Case "age" 
ReplacedNamesE2A 
Case "name" 
ReplacedNamesE2A 
Case Else 
ReplacedNamesE2A = "" 

End Select 

Case Else 

ReplacedNamesE2A = RecivedNames 

End Select 

End Function 

Function ReplacedNamesA2E (ByVal RecivedNames As String) As String 
Select Case RecivedNames 


"العمر'" 


"الكامل الاسم" 


Case "العمر"‎ 
ReplacedNamesAZE = "age" 
Case "oمسال|l‎ لJلماكلا"‎ 
ReplacedNamesAZE = "name" 
Case Else 
ReplacedNamesAZE = "" 
End Select 


End Function 

Sub Fill1lDataToDataGridAndcombo () 

ComboBox1l. Items. Clear () 

For i1 = 1 To DataGridView1l.ColumnCount — 1 

Try 

DataGridViewl.Columns (1) . HeaderText = 

ReplacedNamesE2A (DataGridView1l.Columns (i) .HeaderText) 
المتوفرة بالحقوا الاسماء قائمة نملاا'‎ 

ComboBox1l1. Items.Add (DataGridView1.Columns (1) . HeaderText) 
Catch ex As Exception 

End Try 

Next 

End Sub 

Private Sub search _ Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 

Try 

CON . Open () 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


Dim DataAdapterl1l As New OleDbDataAdapter (SQLstr, CON) 
DataAdapter1.Fill (DS, "tabel") 

CON.Close () 

DataGridViewl.DataSource DS 
DataGridView1l1.DataMember = "tabel" 
DataGridViewl1l.AllowUserToAddRows = False 
FillDataToDataGridAndcombo () 

Catch ex As Exception 

MsgBox (ex.Message, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "ء+lطZخ في‎ لJلاصتالا"(‎ 
End Try 

End Sub 


Private Sub TextBoxl1 TextChanged (ByVal sender As System.Object, ByVal e As 


System.EventArgs) Handles TextBox1l. TextChanged 

On Error Resume Next 

DataGridViewl1.DataSource = DataGridViewl1l.DataBindings 
MyROWS = DS.Tables ("tabel") . Select (ReplacedNamesAZ2ZE (ComboBoxl1.Text) & " LIKE '%" & 
Trim (TextBox1.Text) & "%'") 

Dim FoundRows As DataTable = DS.Tables ("tabel") .Clone 
For Each dr In MyROoOws 

FoundRows . ImportRow (dr) 

DataGridView1.DataSource = FoundRows 

Next 

FillDataToDataGridAndcombo () 

End Sub 

End Class 


البرنامج موجود في المرفقات بأسم (progra 02†a2(‏ 


ألان جرب اختر إي حقل وبمجرد كتابتك حرف في (6×60×1]) سوف يقوم بالبحٿث كما في الشكل 


كما تلاحظ عندما ضغط على حرف ۸ عرض الاسم الذي يقابله 


من ألان مهما كبرت قاعدة بياناتك فقط أضف أسماء الحقول وتعريفاتها في خطوة رقم (١و")‏ 
> هذه الطريقة على أساس جميع الحقول مخزن فيها البيانات بشكل نصوص 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


« م « م 04 م « ډ 
الجزء الثاني : الاتصال بقاعدة البيانات عن طريق المعالج 
هي خطوات بسيطة وسهلة توفر الاتصال بقاعدة البيانات عن طريق المعالج بدون الحاجة إلى كتابة عدد كبير من الكود 
البرمجية يستطيع إي شخص ربطها باستخدام خطوات سهلة 


نستخدم في هذا المتال قاعدة بيانات تحتوي على أسماء المستخدمين واعمارهم ونبدأً بعملية الربط 


خطوات الاتصال بقاعدة البيانات 


(addnewDatabae) رlتخi‎ data .من قائمة‎ ١ 


Data | Tools Test Window Help 
| Show Data Sources Shift+ Alt+ Û 
٣ Al New Data Source... 


١‏ .نختار موه طهاهك لأننا سنربط قاعدة بيانات تعمل على حاسبة شخصية وليس سيرفر 


2 | 
Data Source Configuration Wizard |_8 کے‎ 


Choose a Data Source Type 


ا هه 


Database SEPWICE Cbpect 


Lets you conmsgt to a database and choose the database objects for your application, This option creates a dataset. 


Ment | Firmush | Lancel | 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


٣.نختار‏ رi0ئconnec new‏ لإضافة قاعدة البیانات 


Data Source Configuration Wizard 


Choose Your Data Connection 


Which data connection should your application use to connect to the database? 


| std rmdb E Newy onnectrONus: 


[+| Connection string 


|  PreVIGLIS | 


Erter Information to correct to the selecterd clata source or click 
"Lhange" to choose a different data source andfor provider. 


1 س س ت ت ت ت ت ت ت ت ت ت ت ت ت س Pata sU ooo Û‏ 


Microsoft Access Database File (OLE DE] Data source نختار من قائمۂ‎ 
خيار اتصال بقاعدة بيانات‎ 


access 


Database file narme: 


Log onto the database ا کے‎ 


Lser narmEe: Adrmin 


Password: 


[ [Save my password 


Aclganmcecl;i, 
| Test Connectien | JE Lancel 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


ه.نقوم باختبار الاتصال بقاعدة البيانات إذا نجح نضغط )ن 
Add Confection L#| #& |‏ 


Enter Imforrnmation to connect to the selected data source or click 
"Lhange’ to choose a different data source and/or provider, 


Data soUrçEe: 


Mitrosoft Aces Datahaee File (OLE DE) 


Test Connection 


Data Source Configuration Wizard 
têr ا‎ ITERATE 


Choose Your Data Connection 


Which data connection should your application use to connect to the database? 


[5] Connection string 
Provider= Microsoft .Jet.OLEDB.4.0;Data Source= CN Usersialxs\Desktop\programDatatidatabase\bin\ Debug 
rIbL.mdb 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


۷.سوف يخبرنا انه سيقوم المعالج بعمل نسخة من قاعدة البيانات داخل البرنامج نضغط 605ر 


Data Source Configuration Wrzard 8 | 


Choose Your Data Connection 


Which data connection should your application use to connect to the database? 


dbi.mdb i New Lonnection:... 


. Theconnection youl selectecl uses a local data file that I5 not In the 
current project, Would you like to copy the file to your projêct and 
modify the connection? 


If you copy the data filê to your project, it will be copied tc the project s 
output directory each time you run the application, Press Fl for 
information on controlling this behavior. 


|  PrevIlOUs | ext * 


Data Source Coniqglration WWrzard 
- ی‎ 


EL Save the Connection String to the Application Configuration File 


Storing: CONmMEztroN strings IM your application configuratiaûn file Eases maIıntenance anc deployrrrent. To save thé 
conmeEctton string In the application configuration file, enter a nmarve In the box and then click Mex, 


Do you want to save the connection string to the application configuration file? 
IW] ves, save the connection as: 


db1ConnectionStrin qi 


| 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


٩.نقوم‏ بإضافة الجداول والعرض إلى البرنامج ونضغط ۸ءأ٣‏ أ وتنتهي عملية الربط 


Data Sourte Configuration Wizard. 


Choose Your Database Objects 


Whıch database objects do you want In your. dataset? 


TERE 
Il] Views صصص‎ 


DataSet name: 
dbi Databet 


21. El WindowsApplication1 
۰ ہ9‎ Al My Proyect 
۰ 1 3ê app.config 
= J dbiimdb 


> | dbLDataSet.xsd 


4| 1 ۴ 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


لاحظ محتو يات أعمدة قاعدة البيانات 


» - ب ااا .. واا جو‎ 
indowsApplîicatianl - Microsoft Visual Stud 


File Edit View Project Build Debug Cata Tools Tet Window Help 


EE EAL E RF E |e 2 
A> ERAT EHR HES 9-O - E>) F Debug = Any CPU + | PD + FH ê MH A: 
[Toolbox <F x| ر‎ d1 PHF ERE lEsign] | Start Page = x | Tata Sources > E x أ‎ 
| I= DataSet Input: Regien 
MiodEe: Iriagqe Capture 


al TableAdapter 
® Query 

DataTable‏ وا 
Relation‏ ف 

El General‏ ا 


[Solution Explorer - Solution .. > FH % | 
E Sele 
Er Solution WindowsApplicationl’' 1Î 
û. El WindowsApplication1 | 
4 A] My Project 
e E app.config 


There are no usablë 
controls in this group. 
Drag an tem onto this 

text to add It to the 

toolbox, 


- J db1.mab 
i db1DataSetxsd 
E. ES] Formilwb 


۲ آ 71 س 
FE EE‏ 
| 
db1DataSet DataSet +‏ | 
Mladifier Public |‏ 
Name db1Dataset |‏ 
Namespace https termpuri.or |‏ 


| Name of the Dataset class 


| Name | 


لعرض محتويات قاعدة اليانات على سطح الفورم تقوم بالخطوات الال 
١‏ .من قائمة ههل نقوم بأضهار محتويات الاتصال بقاعدة البيانات بضغط على زر cesإٍsou show data‏ 


Daka Tools Test Window Help 


FF Show Data Sources Shift+Alt+D 
/ ۳ | Add New Data Source... 


ی ر ی و 


۲ ستظهر هذه القائمة داخل بيئة التطوير 


الأدوات التي تخص قواعد البيانات بربط 


= Data 

kk Pointer 

mî] DataSet 

jl DataGridView 
Ly BindingSource 
iH BindingNavigator 


Data Sources لا ب‎ 


i ê @ 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


٤‏ ثم نقوم بسحب ( اطه]) وإلقائه على سطح الفورم فيتم الربط والعرض كامل 


ااا 


File Edt View Project Build Debug ÛOata Tools Fest Window Help 
E A A e e N o PS E SS O EB IEE IE 
E RES HAN BR 3 = O - GO- | F Debug > Any CPU | iD +: \ HFA MHRA, 
eg ET mS x FE 


2-ja&] db1DataSet 
| 1 
الععرف إاطدا.:‎ 
[ab name 


EEN EERE 


oO #F Hj F& El 


abl depart 


Solution Explorer - Solution. > FH * | 
ê 81 e 
3 ا‎ 
f. Ê WindowsApplication1 
i Ea) My Project 


al Solution 'WindowsApplicationl' (1 
8 i app.config 
-“ Î dbl.mdb 
Ul db1DataSet.xsd 
i... FE] Forml.yb 
Li ns ann] 
e e e 
e EEE 
la*] D1 DataSet TY TabelBindingSource Î TabelTableûdapter N] TableûdapterManager IF TabelBindingMlavigator ا‎ err ES 
| Text | 
j | The tet asenriaterl wafith thea cantrnl 
الان نفد البرنامج سيتکون أدبك برنامج کامل مربوط بقاعدة بيانات يضيف ويحذف ويتصفح‎ 
ad Forml ` aA a. کک‎ 
+ « 2 4ع ھ8‎ ٩ ٠٣ ل + م » “ مړ‎ 
الآدوات التي اضيفت تلقائيا من قبل المعالج وكيف تعمل‎ 
Ty TabelBindingSource l TabelTableûdapter iI TableAdapter Manager FÎ TabelBindingNavigator 


4# (se1ه dai‏ 1ط ) هي قاعدة البيانات نخزن فيها محتويات قاعدة البيانات التي تم الاتصال بها 


abe bindingSo0u r ce) #‏ rا)‏ هو مصدر الاتصال بقاعدة البیانات 


خطوة بخطوة نحو قاعدة بيانات ترضي الحميل 


= WindowsApplicatia.... = 
lk Pointer i 
dF db1DataSet 
iF tabelTableAdapter 
df TableAdapterMana... 
| E All Windows Forms 
lk Pointer = 
3 BackgroundWorker 
ê BindingMavigator 
Tg BindingSource 
Button 
LheckBox 
E) CheckedListBox 
E 
E LantextMenuStrip 
ا‎ DataûridView 
laê] DataSet 
TE DateTimePicker 
[Es] DirectoryEntry 
| UirectorySearchêr 
E: DomainllpDowr 
O ErrorProvider 
ا‎ EventLog 
ا‎ FileSystemWatcher 


E 


Fî FolderBrowserDtalog 


>= 


LolorDialog 


LomboB ox 


qr 


FaontDialog 


laã] Db1 DataSet 


حسین /حمد طالب 


7 تحتوي على خاصية ١6١٥501۲هه‏ التي نختار منها مصدر قاعدة البيانات 


ther Data Sources‏ لذ 
a - 1 Project Data Sources‏ 
ë- Formil List Instances‏ 


MEI Db1DataSet 


TH Add Project Data Source... 
Lurrently data bound to 'Dbi1 DataSet’. 


”> خاصية (۲٥]|أ)‏ هي جملة 5601 التي بواسطتها نحصل على بيانات التي نريدها من الجدول إذا لم نكتب شيء 
سيختار جميع البيانات من الجدول 


vb.net 
مباشرة اسم العمود بعده ما يساويه‎ 5٥| ٥ اسم العمود هنا يوضع بين ([]) وبدون‎ 


ونتحكم بهذه الأداة عن طريق الكود بطريقة التالية 


TabelBindingSource. DataSource = Ds_Name 
TabelBindingSource.DataMember = tabel Name 
TabelBindingSource.Filter = "SQL statement" 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


(e۲اeAdapاab "aber‏ ) هذه الأداة تقوم يملئ الجدول في البرنامج ببيانات القاعدة أضيفت اكوادها تلقائيا 
كما نراها في حدث تحمیل الفورم 


] Private Sub Forml Load{ByVal sender As Sysatem.LbjJect, ByVal e As System.EventArgs) Handles 
"TODO: This line of code loads data into the 'DblDataSet.tabel" table. Tou can move, Or 
He. TabelTableAdapter. F111 (He. DbIDataSset . tabel J 


TabeڳlBindingWNa¥TiJatorlc‎ . BindingSource = TabelBindingSourcce 


- End Sub 
لاحظ يطلب منه ملئ هھ 01 بالبیانات‎ 


له خاصیۂ for ٤|‏ earBufferbeاc‏ معناه نف رغ 6۲ط الخاص به في الرام قبل الإضافة تلقائيا هي ٥ں ٣‏ 


أداة Adapter Manager‏ eاab‏ ۲ طريقة لخزن البيانات المتبقية في الجدول 
4 أداة 20۲1 BindingNa vig‏ تستخدم للتحكم في بيانات الجدول 


wer‏ ص 


l4 4 |0 Oj #F HMI KO 


الآن لشرح شريط الأدوات هذا وكيف يقوم بالإضافة والحذف والتقدم والتأخر وغيرها 


File Edt View Project Build Debug ÛOata Tools Test Window Help 


e a E ee E | e e> E a | | Sd E‏ ا | ر اغ 
A BE RA EBE) 9O > > E) |p Debug = Any CPU | Ee EE‏ 

[Toolbor.. < #3 xX Eorm1.yp? FormLvb [Design] ك‎ x Data Sources اا‎ 

1 WindowsApplicatio.. * | TAET 


lk Pointer 

F db1DataSet 

tabelTableAdapter‏ کک 
dF TableAdapterMana...‏ 
All Windows Forms‏ 3 
4 
E BackgroundWorker‏ 
A BindingMavigator‏ 
Ll BindingSource‏ 
Button‏ 

CheckBox 

E2 CheckedListBox 
E1 CalorDialog 

E LamboaBoxk 

El ContexthlenuStrip 
j DataGridView 

laî] Datašet 

Te DateTimePicker 
[e] DirectoryEntry 
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الععرف إاطةا..: 


1 ofl) FF | #* 


[Solution Explorer - Solution... = # % | 


E SBEEE | 
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, MoveFirsttem BindingNavigqatc 
MoyweLastitem BindingNavigqatet 
MoveNeattem BindingNavigatc 
MovwePreviouslt: BindingNavigate 
Padding 0:1:0 E 


Positioner 


RenderMlode  ManagerRenderh 
|__RinhtTalaft Mln El 


| : EET 
| Emked in [oolstrtp Container, Insêr 
a BOL ga (ERGE gs Û BF aa 


a e 


la D1 DataSet وا‎ TabelBindingSource 1 TabelTableAdapter MF TableAdapter Manager E TabelBindingNavigator ۰ Poeiti Tem 


The ToalStripltem on the 
| BindingNavigator that displays the c... 


TT FlowLayoutPanel 


lar] FolderBrowserDialog 
la] FontDialog 


TabelBindingqSource 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


ويقوم المترجم تلقائيا بإضافة هذا الكود في حدث التحميا 


vb.net کود‎ 


TabelBindingNavigator.BindingSource = TabelBindingSource 


خاصية أزرار التنقل منها زر 0 اماه انتقال للسجل الأول يتم ضبطها عن طريق الخصائص للاداة نضغط 
القائمة الخاصة به ونختار التالي(التي نراها مضبوطة بشكل تلقائي) 


(nore) 
EindingNavigatorAddNewltern 
BindıngNavıgatorLountltem 
BindingNavIgatorDeletelterm 
BındıngNavıgatorMoveFırstltem 
BindingNavigatorMovweLastltêfy 
BindingNavigatorMoveNextlterm 
BindıngNavıgatorMovePreviousltem 
EindingNavigatorPositionltem 
BindıngNaviıgatorSeparator 
BindingNaviıgatorseparatorl 


وبقية الأزرار يختار لها المترجم بشكل تلقائي 


MovweFirstltem BindingNaviqator MoveFirstltem 
MovweLastlterm BindingNaviqatorMoveLastltem 
MioweNextlterm BindingNavigator MoveNextltem 
MovePreviouslterm BindingNaviqatorMovePreviousltem 


وزر الإضافة يضع له المعالج الكود التالي بشكل تلقائي 
Private Sub TabelBindingNavigatorSsaveltem Click [ByVal sender As System.Ubject, ByVal e As System.EventArg‏ 
He. Validate [‏ 
He. TabelBindingSource „. EndEdIT ( }‏ 
He. TableAdapterMHanagqer . UpdateAll 1 (He. DbI1DataSet ]‏ 


End Sub 


البرنامج موجود في المرفقات بأسم (program Daa5)‏ 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


لعرض البيانات بجدول نختار من قائمة ءاطه† عرض 0۲|4هاهك ونسحب الأداة على سطح الفورم 


File Edit View Project Build Debug Cata Format Tools Test Window Help 


RAN E NE PP TT IR N ELS NEE‏ ج ا ر 
EEE ETE‏ ا EEL RDO E Debug = Any CPU‏ تا TE‏ 
x | Data Sources Hx‏ 4 ي Gz‏ : : 


ا TEE‏ ا 
lk Pointer‏ 
dF db1Dataset‏ 


Lk 


E-ja#] db1DataSet 


ا tabel‏ ا 

OF tabelTableû4dapter "° الععرف طا‎ 
iF TableAdapterMana... طا‎ name 
= All Windows Forms '..lab depart 


lk Pointer 

7 BackgroundWorker 
ا‎ BindingNavigator 
Tg BindingSource 
Button 


LheckBox 


Solution Explorer - Solution .. > HF x 


ChéckëdLištBoxt ê | Ê Êl ELE 
LolorDialog ا‎ Solution 'WindowsApplicationl' (1 
ComboBox E: 3Ê WindowsApplication1 

El ContetMenuStrip Edl My Project 

EH Datatidiêw 7 - a 

e 8 Ad db1DataSet.xsd 

E DateTimePicker ا‎ FE 

li| BirectoryEntry 


8F I : ۲ 


„| DomainlpDown 


ErrorProwider 


ھا 
8 
Î DirectorySearcher‏ 
L8‏ 
Qa‏ 
ت 


| EventLog 


za, FileSystem Watcher a 
î FlowkayoutPane! laê] D1 DataSet Ty TabelBindingSource El TabelTableûdapter N] TableAdapter Manager Ig TabelBindinglavigator 


Hl (Application Set 


1F 


1| FolderBrowserDialog 
lal] FontDialeg 


بوا ق a‏ 


أیضا یکون برنامج کامل 


لو أردنا عرض حقل داخل ×0× فقط نسحب الحقل إلى سطح الفورم 


File Edt View Project Build Debug Data Format Tools Test Window Help 


0 ا غ ر ا‎ | e | | E | E E | Ê Ê E 
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a ك‎ ¥ | Data Sources 


E 


lk Pointer 
dF db1DataSet 

e tabelTableAdapter 
dF TableAdapterMana... 
= All Windows Forms 
lk Pointer 

E BackgroundWorker 
E BindingMNavigator 
ا‎ BindingSource 
Button 

CheckEox 
CheckedListBox 
E1 LCalorDialog 
ComboBox 

İE| Context MenuStrip 
j DataGridView 

laî] DataSet 

Te] DateTimePicker 


Solution Explorer - Solution .. > HF x 
e 
[ey] Solution 'WindowsApplicationl' (1| 
Ê. ĞEl WindowsApplication1 
:.. Ea My Project 
إ‎ i app.canfig 
-. [f dbi.mdb 
lA db1DataSet.xscl 


Ea] Formil wb‏ ا ت 
|ts| DirectoryEntry‏ 


UirectorySearcher 


ErrorProyider 


| EventLog 


FileSystemWatcher 
#* FlowLayoutPanel 


laã] Dۍ1‎ DataSet Ty TabelBindîngSource TabelTableAdapter i) TableûdaptervManager E TabelBindingNlavigator r aE 


2 
DomainllpDown‏ 
@ 
ل 
2 
اخ 
ا 


1| FolderBrowserDialog 
la] FontDialog 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


نفذ البرنامج وشاهد النتائج 


fF PHI XxX 


ل لو ردنا عمل أزرار إضافة وحذف وتعديل دون استخدام الأداة TableAdapterManager‏ 


إليك مثال بين العملية 
نربط قاعدة البيانات ببرنامج جديد ونضيف الأدوات التالية على سطح الفورم 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


DataBinding الأخاصة بالاسم نختار خاصية‎ (textbOX) 
ا منها نختار الحقل الخاص ۳8" بشكل التالي‎ abeBinding Source ثم‎ 


a-j Other Data Sources 


iH Add Project Data Source... 


selecting a BındıngqSource property binds to 
the corresponding property of the list that t... 


> (×100×ه]) الخاصة بقسم الطالب نختار خاصية و٣‏ أك١١أطهج0‏ ومنها نختار الحقل الخاص 2۲ م6 بنفس 
الطريقة السابقة 


٠‏ سوف يقوم المترجم باضافة الأدوات المطلوبة للربط الأدوات الأساسية 


في زر التالي نكتب الكود لنقل المؤشر إلى السجل التالي 


vb.net گود‎ 
TabelBindingSource.MoveNext () 


في زر السابق نكتب الكود 


vb.net كود‎ 
TabelBindingSource.MovePrevious () 


في زر الأول نكتب الكود 


vb.net كود‎ 
TabelBindingSource.MoveFirst () 


کی زر الاخاز تالكر 


vb.net کود‎ 
TabelBindingSource.MovelLast () 


في زر حذف نكتب الكود التالي 


اذا لم يكن موجود أي سجل' 

If TabelBindingSource.Count = 0 Then 

Exit Sub 

End If 

TabelBindingSource. RemoveCurrent () 

تخديبت النناناق ' 

Me.TabelTableAdapter. Update (Me .Db1DataSet .tabel) 
Me.TabelTableAdapter.Fill (Me .Db1DataSet.tabel) 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


فى زر إضافة لإضافة صف جديد داخل قاعدة البيانات 


vb.net کود‎ 
TabelBindingSource. AddNew () 


في زر حفظ نكتب الكود التالي 


TabelBindingSource. EndEdit () 


' تجديبتث التنباناتة‎ 
Me.TabelTableAdapter . Update (Me .Db1DataSet .tabel) 
Me.TabelTableAdapter.Fill (Me.Db1DataSet.tabel) 


لا نحتاج زر تعديل تستطيع التعديل بشكل مباشر على البيانات وضغط على زر حفظ 


في زر بحث نكتب الكود التالي 
vb.net‏ 


TabelBindingSource.Filter = " [name] LIKE '%" & Trim (InputBox ("Search")) & "%'" 


ونستطيع معرفة تسلسل السجل من بين السجلات الكلية بطريقة التالية 
o dk‏ زtڑvb.ne‏ 


Msgbox (TabelBindingSource.Position + 1 & "from" & TabelBindingSource.Coun) 


البرنامج موجود في المرفقات بأسم (program Data6)‏ 


> لعرض بيانات في iW‏ ۵۷ا 46ھ نحن نقوم بأدراجھا نضغط على |الژأداة ونختlر choose data source‏ 
ونحتار rabeBinding Source‏ بشکل التالي 


iH Add Project Data Source... 


selecting a BiındıingqSource binds directly to 
that BındingqSource, 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


Databases 


اد ااا اس ا ا ات اسو ا 


يبتناول هذا الفصل إضافة الملفات إلى كل سجل في قاعدة البيانات حيث سيمكنك من 
إضافة عدد غير محدد من السجلات لكل شخص وإضافة الملفات تكون إما داخل 
قاعدة البيانات أو خارجها 
محضخودات الفصل 
+ إضافة ملفات داخل قاعدة البيانات 
٠‏ حفظ الصور داخل قاعدة السبانات وتصضحها من داخل قاعدة السيانات 
ه حفط ا لفات يمختلف ا2 مخدادات داخل قاعدة السسافات وتصغفحدها 
إضافه ملفات مرفقا مح قاعدة البيانات 


* إضافه عدد غير محدد من اللات لكل شخص 
* إضافة صورة لكل مستخدم ئي قاعدة البيانات 


بعد أن تنتهي من هذا الفصل ستكون بأذن الله قادر على إضافة الملفات إلى سجلات الأشخاص والصور 
بطريقة مميزة جدا مهما كثرت 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


اضافة ملفات داخل قاعدة البيانات 


توفر و٥٠٠۸‏ أمكانية إضافة ملفات داخل قاعدة البيانات بشكل ملفات تنائية وذالك بتكوين حقل في قاعدة البيانات من 
نوع کائن OLE‏ آي أننا سنحول اي ملف ترید خزنه داخل قاعدة البیانات ۸٥۲٥۲٥‏ إلى ملف ٿنائي وعندما نستدعیه نعبد 
تكوينه من جديد ونستطيع التعرف على نوع الملف المخزن وذالك بخزن اسمه ومساره معه حتى عندما نعيد بنائه يرجعه 
كما كان في الأول بنفس الامتداد 


حفظ الصور داخل قاعدة البيانات وتصفحها من داخل قاعدة البيانات 
.١‏ نكون قاعدة بيانات تحتوي على عمودين احدهما من نوع ثنائي لحفظ ملف وأخر لحفظ تعليق عنه 
Table1 EB‏ 


img) 
NAITIE 


| 
. نكون مشروع جديد ونضيف إليه الأدوات التالية وأسمائها 


aer 


as‏ و س ل س سس kk‏ kkخگkگك‏ کے ا س 


اضاقهة 


pic Save 


الآن لنتطرق إلى كود البرنامج 
.١‏ نربط البرنامج بقاعدة البيانات كما تعودنا نعرف التالي في منطقة التعريفات العامة 


Dim strConn As String = "Provider=microsoft. jet.oledb.4.0; data source=" & 
Application. StartupPath & "\db.mdb" 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


da As New OleDb.OleDbDataAdapter ("select * from tablel", strConn) 
ds As New DataSet () 


cb As New OleDb.OleDbCommandBui 1lder (da) 
rOW As DataRow 


۲. نملى مءه]ه بالبيانات عند حدث تحميل الفورم 


vb.net کود‎ 


da.Fill (ds) 


i‏ في زر اختيار صور نكتب الكود التالي 


vb.net 
dlgFileOpen.Filter = "Image Files (*.jpg, *.bmp, *.gif, *.png) |*.jpg; *.bmp; *.gif; 
اہ‎ png" 
dlgFileOpen.ShowDialog () 
txtFileName. Text = dlgFileOpen.FileName 
txtFileName. SelectionStart = txtFileName.Text.Length 'to show the last portion of text 
If Trim (txtFileName.Text) <> "" Then picSave. Image = Image.FromFile (txtFileName. Text) 


؟. في زر حفظ نضيف الكود التالي لإضافة الصورة وتعليق إلى قاعدة البيانات 


If Trim (txtFileName.Text) = "" Then Exit Sub 
Dim br As New IO.BinaryReader (New IO.FileStream (txtFileName. Text, IO.FileMode. Open, 
IO.FileAccess.Read, IO.FileShare.Read) ) 
Dim arr() As Byte = br.ReadBytes (br.BaseStream. Length) 
Dim dt As DataTable = ds.Tables (0) 
Dim row As DataRow = dt .NewRow 
' اضافة الصورةبعد تحويلها الى ملف ثنائي‎ 
row.Item(0) = arr 
اضافة عنوان الصورة‎ 
row.Item(1) = TextBox1. Text 
dt .Rows.Add (row) 
ds.Tables.Clear () 
ds.Tables. Add (dt) 
da. Update (ds) 
MsgBox ("Image added successfully! !", MsgBoxStyle. Information) 


الآن انتهينا من حفظ الصور داخل قاعدة البيانات بقي كود العرض 


ه. نكون الدالة التالية لعرض صورة من قاعدة البيانات داخل ×0طعإuعP"i‏ 


Private Sub LoadImage (ByVal recNo As Integer) 

Dim arr() As Byte 

arr = ds.Tables (0) .Rows (recNo) . Item (0) 

pPpicLlLoad. Image Image.FromStream (New IO.MemoryStream (arr) ) 
TextBox2. Text ds.Tables (0) .Rows (recNo) . Item (1) 

End Sub 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


.٦‏ كود التنقل بين الصور إلى الأمام 


If Val (lblCount.Text) < ds.Tables (0) .Rows.Count —- 1 Then 
1lblCount. Text = Val (lblCount.Text) + 1 


Else 

1lblCount.Text = 0 

End If 
LoadImage (Val (lblCount . Text) ) 


ق ا 


If Val (lblCount.Text) > 0 Then 
1lblCount.Text = Val (lblCount. Text) — 1 

Else 

1lblCount.Text = ds.Tables (0) .Rows.Count — 1 
End If 

LoadImage (Val (lblCount . Text) ) 


۸. في حدث إنهاء البرنامج نكتب الكود التالي لإفراغ البيانات 


vb.net 
ds.Dispose () 
da.Dispose () 
cb.Dispose () 


ولا ننسى أن نستدعي المكاتب التالي 


vb.net 


Imports System.Data. OleDb 
Imports System.Data 
Imports System. IO 


البرنامج موجود في المرفقات بأسم (program Data9)‏ 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


حفظ الملفات بمختلف الامتدادات داخل قاعدة البيانات وتصفحها من داخل قاعدة البيانات ي/ اكت 


.١‏ نكون قاعدة بيانات تحتوي على عمودين احدهما من نوع ثنائي لحفظ ملف وأخر لحفظ اسم الملف 


Table1 Ê 
اسم الحقل‎ : 
Td 
TAITIE 


اسم املفه اسم املف 


الآن لنتطرق إلى كود البرنامج 
.١‏ نربط البرنامج بقاعدة البيانات كما تعودنا نعرف التالي في منطقة التعريفات العامة 


Dim strConn As String = "Provider=microsoft. jet.oledb.4.0; data source=" & 
Application. StartupPath & "\db.mdb" 

Dim da As New OleDb.OleDbDataAdapter ("select * from table1l", strConn) 

Dim ds As New DataSet () 

Dim cb As New OleDb.OleDbCommandBui l1der (da) 

Dim row As DataRow 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


۲. نملى مءه]هD‏ بالبيانات عند حدث تحميل الفورم 


vb.net کود‎ 


da.Fill (ds) 


vb.net 
dlgFileOpen.Filter = " Files Type (*.All)|*.*; " 
dlgFileOpen.ShowDialog () 
txtFileName. Text = dlgFileOpen.FileName 
txtFileName.SelectionStart = txtFileName. Text.Length 


.٤‏ في زر حفظ نضيف الكود التالي لإضافة الملف وأسمه إلى قاعدة البيانات 


If Trim (txtFileName.Text) = "" Then Exit Sub 

Dim br As New IO.BinaryReader (New IO.FileStream (txtFileName.Text, IO.FileMode. Open, 
IO.FileAccess.Read, IO.FileShare.Read) ) 

Dim arr() As Byte = br.ReadBytes (br.BaseStream. Length) 

Dim dt As DataTable = ds.Tables (0) 

Dim row As DataRow = dt .NewRow 

Dim filename As New Filelnfo (txtFileName . Text) 

row.Item(0) = arr 

row.Item (1) = filename.Name 

dt .Rows.Add (row) 

ds.Tables.Clear () 

ds.Tables. Add (dt) 

da. Update (ds) 

MsgBox ("Image added successfully! !", MsgBoxStyle. Information) 


الآن انتهينا من حفظ الملف داخل قاعدة البيانات بقي كود العرض 


ه. نكون الدالة التالية لعرض الملف من داخل قاعدة البيانات إلى سطح المكتب 


Private Sub Loada (ByVal recNo As Integer) 

Try 

Dim arr() As Byte 

arr = ds.Tables (0) .Rows (recNo) . Item (0) 

Dim bWrite As BinaryWriter 

bWrite = New 

BinaryWriter (File. Open (Environment .GetFolderPath (Environment . SpecialFolder.Desktop) & 
"\" & ds.Tables (0) .Rows (recNo) .Item (1), FileMode. Append) ) 
bWrite.Write (arr, 0, arr.Length) 

bWrite.Close () 

MsgBox ("file put on Disktop") 

Catch ex As Exception 


End Try 
End Sub 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


.٦‏ في زر عرض ملف على سطح المكتب نكتب الكود التالي 


vb.net 
btnPrev.Enabled = False 


Loada (Val (lblCount . Text) ) 
btnPrev.Enabled = True 


۷. كود التنقل بين الملفات إلى الأمام 


If Val (lblCount. Text) > 0 Then 

1lblCount. Text = Val (lblCount.Text) — 1 

Else 

1lblCount.Text = ds.Tables (0) .Rows.Count 

End If 

Label4.Text = ds.Tables (0) .Rows (Val (lblCount. Text) ) . Item (1) 


۸. في حدث إنهاء البرنامج نكتب الكود التالي لإفراغ البيانات 


vb.net 
ds.Dispose () 
da.Dispose () 
cb.Dispose () 


ولا ننسى أن نستدعي المكاتب التالي 


vb.net 


Imports System.Data. OleDb 
Imports System.Data 
Imports System. IO 


البرنامج موجود في المرفقات بأسم (program Data10(‏ 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


إضافة ملفات مرفقا مخ قاعدة البيانات 
إضافة عدد غير محدد من الملفات لكل شخص 


أفضل وأسهل وأأمن وسيلة لخزن عدد غير محدد من الملفات (كتب أو صور أو ملفات مضغوطة) لكل شخص في قاعدة 
البيانات دون التأثير على حجم قاعدة البيانات هي بتكوين ملف (۲هه|ه]) باسم كل الشخص في قاعدة البيانات يخزن في 
داخله ملفاته الشخصية .أي عند إضافة كل شخص جديد إلى قاعدة البيانات نضيف مرفقاته معه وسوف يكون (إههاه) 
بأسمه يخزن ملفات هذا الشخص في داخله وعندما نريد الوصول إلى هذه الملفات تكون الوسيلة سهلة مجرد نبحث عن 
ملفا داخل (۲٥ه‌اهf)‏ الخاص به. 


فعلى سبيل المثال إذا أردنا تخزين ملفات جميع الأشخاص داخل (۲هلاه]) اسمه (لك۸ءه]) بمسار تشغيل البرنامج 
مثلا عند إضافة شخص اسمه حسين الربيعي سيكون (۲هلاه؟) بأسمه و بشكل التالي 


path= Application. StartupPath & "\filesAdd\" & "qaaبرنلdا‎ jaıسw>'"‎ & "\MURFACAT" 


ي بمسار تشغیل البرنامج وداخل فولدر (۸۵۵ءم‌|اا) کون فولدر اسمه حسین الربيعي وداخله فولدر اسمه 
)MUR۴AC۸1۲(‏ لخزن ملفاته فيكون شكل الملف بطريقة التالية 


OU. ll * proqramData3 * database F bin F Debug * filesAdd * يعzınرلl س‎ * MURFACAT 


Crgqanizeê ¥ Includein library ™ Share with ¥ slide show Burn NY 


r Favorites 
Wl Desktop 
ıl Downloads 


1 
| . 
ıı Recent Places 


al Libraries 


5 Documents 


لاحظ مسار الملف أين كونه المعالج وبعده نضيف الملفات في داخله عن طريق الكود 


كما سنلاحظ في المثال التالي 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


خطوات الإضافة : لنفرض أن اسم الشخص الدي نضيفه مو جود داخل TextBoX1 nae. TeX‏ 


.١‏ ندرج أداة (180×1ءأا١م)ممطع)‏ ونضيف زر نسمية اضافة ملفات نضيف عن طريقه مسار الملفات المرفقة 
داخل (180×1ءiاdء)cمCh)‏ بطريقة التالية 


vb.net 
Private Sub Buttonl Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1l.Click 


If fDg.ShowDialog() = DialogResult.OK Then 
CheckedListBox1l. Items.Add(fDg.FileName) 
End If 

End Sub 


. بعد عملية إضافة سجل لكل شخص نستدعي الدالة التالية لكي تقوم بإضافة ملفاته المرفقة التي أضيف مساراتها 
إلى (180×1ءiاكم)عمماع)‏ داخل مجلد شخصي للشخص الذي نكونه حديثا 


vb.net 
Sub savedMurfacatfile () 
On Error Resume Next 
path = Application. StartupPath & "\filesAdd\" & Trim (TextBox1name. Text) & "\MURFACAT" 
If My.Computer.FileSystem.DirectoryExists (path) = False Then 
My.Computer.FileSystem.CreateDirectory (path) 
End If 
For i1 = 0 To CheckedListBox1. Items.Count — 1 
CheckedListBox1. SelectedIndex = i 
Dim dnames As New System.IO.FilelInfo (CheckedListBox1l1. SelectedItem) 
My .Computer.FileSystem. MoveFile (CheckedListBox1. SelectedItem, path & "\" & dnames.Name) 
Next 
End Sub 


الان انتهينا من إضافة ملفات مرفقة لكل شخص بقي كيف نظهر هذه الملفات إما المستخدم 
۳. عند تصفح كل سجل نستدعي الدالة التالية لكي تقوم بإاضافة ملفاته المرفقة إلى قائمته 


vb.net 
Sub ADDhisMirfacattolist () 
Try 
Dim pathInputbox As String = Application. StartupPath & "\filesAdd\" & 
Trim (TextBox1name. Text) & "\MURFACAT" 
Dim di As New System. IO.DirectoryInfo (pathInputbox) 
NumberOfBook = 0 
GroupBox5.Text = "(" & NumberOfBook & ")تاlقفرملا"‎ 
CheckedListBox1l. Items. Clear () 
Dim f1 As Filelnfo() = di.GetFiles () 
For i As Integer = 0 To (f1.Length ¬ 1) 
NumberOfBook = NumberOfBook + 1 
GroupBox5.Text = "(" & NumberOfBook & '")تاlقفرملا"‎ 
CheckedListBox1l. Items. Add (f1 (1) .Name) 
Next 
Catch ex As Exception 
End Try 
End Sub 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


. بقي زر لفتح الملف الذي يتم اختياره من قائمة ملفات الشخص ویيکكون کكوده 


vb.net 
Private Sub Button2 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 


Try 

Dim pathInputbox As String = Application. StartupPath & "\filesAdd\" & 
Trim (TextBox1name. Text) & "\MURFACAT" 

Dim di As New System. IO.DirectoryInfo (pathInputbox) 

Dim f1 As Filelnfo() = di.GetFiles () 

For ] = 0 To CheckedListBox1l1. Items.Count ¬ 1 

If CheckedListBoxl1.GetItemChecked(]J) = True Then 


CheckedListBox1. SelectedIndex = j 

For i As Integer = 0 To (f1.Length ¬ 1) 
If String.Equals (CheckedListBox1. SelectedItem. ToString(), f1(i) .Name.ToString) Then 
Process.Start (f1 (1) .FullName) 

End If 

Next 

End If 

Next 

Catch ex As Exception 

End Try 

End Sub 


ألان لنكون فورم كما في الشكل التالي ونضيف فيه الأدوات كما في ظاهرة 


EIBINEED Formi a 
معلومات‎ 


الهرققات الى تخص الضشخص 
E RT | [eesssssnssnnnnsnnnnnsnnnnnnmsnnnnmnnmnmnmnmnnmnmnmnnnn |‏ 
CheckedListBox1 1|‏ 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


ويكون كود هذه الفورم بشكل التالي 
کود vb.net‏ 


Imports System.Data 
Imports System.Data. OleDb 
Imports System. IO 

Public Class Forml 


Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & 
Application. StartupPath & "\db1 .mdb" 

Public CON As New OleDbConnection (ConStr) 

Public DS As New DataSet 

Public SQLstr As String = "SELECT * FROM tabel " 

Dim NumberOfBook As Integer 

د الة لوضع ملفات المرفقة لكل شخص داخل اللست عند المرور عليه' 

Sub ADDhisMirfacattolist () 

Try 

Dim pathInputbox As String = Application. StartupPath & "\filesAdd\" & 
Trim (TextBox1name. Text) & "\MURFACAT" 

Dim di As New System. IO.DirectoryInfo (pathInputbox) 

NumberOfBook = 0 

GroupBox5.Text = "(" & NumberOfBook & ")تڙاقفرnلا"‎ 
CheckedListBox1l. Items. Clear () 

Dim f1 As Filelnfo() = di.GetFiles () 

For i As Integer = 0 To (f1.Length ¬ 1) 

NumberOfBook = NumberOfBook + 1 


GroupBox5.Text = "(" & NumberOfBook & '")ٽتlقفرnمnلا"‎ 
CheckedListBox1l. Items. Add (f1 (i1) .Name) 

Next 

Catch ex As Exception 

End Try 

End Sub 


Sub addDataContent () 

On Error Resume Next 

Me.TextBoxlname.DataBindings.Add ("Text'", Me.DS, "tabel.name") 
Me.TextBoxZage.DataBindings.Add ("Text'", Me.DS, "tabel.depart") 
نستدعي الدالة عند مرور على سجل الشخص'‎ 

ADDhisMirfacattolist () 

End Sub 


Sub updatTheDataBase () 

Dim DataAdapterl1l As New OleDbDataAdapter (SQLstr, CON) 

DS.Clear () 

DataAdapter1.Fill (DS, "tabel") 

End Sub 

Private Sub Forml1 Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 


Try 

CON . Open () 

Dim DataAdapterl1l As New OleDbDataAdapter (SQLstr, CON) 

DataAdapter1.Fill (DS, "tabel'") 

CON.Close () 

addDataContent () 

Catch ex As Exception 

MsgBox (ex.Message, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "ء+lطZخ في‎ لJلاصتالا"(‎ 
End Try 

End Sub 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


نقل المؤشر الى السجل التالي ' 

Private Sub Buttonl1l Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles previous.Click 

If Me.BindingContext (DS, "tabel") .Position = Me.BindingContext (DS, "tabel") .Count — 1 
Then 

Me.BindingContext (DS, "tabel").Position = 0 

Else 

Me.BindingContext (DS, "tabel") .Position += 1 

End If 

addDataContent () 

End Sub 


اضافة ' 

Private Sub Buttonl1l Click 1(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1l.Click 

AddOrEdit. Show () 

End Sub 

مرفقة ملفات فتج' 

Private Sub Button2 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 

Try 

Dim pathInputbox As String = Application. StartupPath & "\filesAdd\" & 

Trim (TextBox1name. Text) & "\MURFACAT" 

Dim di As New System. IO.DirectoryInfo (pathInputbox) 

Dim f1 As Filelnfo() = di.GetFiles () 

For ] = 0 To CheckedListBox1l1. Items.Count — 1 

If CheckedListBoxl1.GetItemChecked(]) = True Then 

CheckedListBox1. SelectedIndex = j 

For i As Integer = 0 To (f1.Length ¬ 1) 

If String.Equals (CheckedListBox1. SelectedItem. ToString(), f1(i) .Name.ToString) Then 
Process.Start (f1 (1) .FullName) 

End If 

Next 

End If 

Next 

Catch ex As Exception 


End Try 
End Sub 


End Class 


خطوة بخطوة نحو قاعدة بيانات ترضصي الحميل حسین /حمد طالب 


وكود فورم الاضافة التي تكون بشكل التالي 


| ±2 | ص | لک‎ | AddOrEdit a 


اضاكة جديید 


E L1 
CheckedListEBox1 [1] 


Imports System.Data 

Imports System.Data. OleDb 

Imports System. IO 

Public Class AddOrEdit 

Dim fDg As New OpenFileDialog 

Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & 
Application. StartupPath & "\db1 .mdb" 

Public CON As New OleDbConnection (ConStr) 

Public DS As New DataSet 

Public SQLstr As String = "SELECT * FROM tabel " 

Dim path As String 

المرفقة ملفات حفظا' 

Sub savedMurfacatfile () 

On Error Resume Next 

path = Application. StartupPath & "\filesAdd\" & Trim (TextBox1name. Text) & "\MURFACAT" 
If My.Computer.FileSystem.DirectoryExists (path) = False Then 
My.Computer.FileSystem.CreateDirectory (path) 

End If 

For i1 = 0 To CheckedListBox1. Items.Count — 1 

CheckedListBox1l1. SelectedIndex = i 

Dim dnames As New System. IO.FilelInfo (CheckedListBox1l1. SelectedItem) 

My .Computer.FileSystem. MoveFile (CheckedListBox1. SelectedItem, path & "\" & dnames.Name) 
Next 

End Sub 

اضافة زر' 

Private Sub addnew_ Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles addnew.Click 

Try 

Dim SavIntol As New OleDb.OleDbCommand 

Dim Conn As New OleDbConnection (ConStr) 

SavIntol1l.Connection = Conn 


خطوة بخطوة نحو قاعدة بيانات ترضي العحميل حسین احمد طالب 


SavIntol.CommandType = CommandType . Text 

SavIntol.CommandText = "INSERT INTO tabel (name, depart)" & "values ('" & 
TextBoxlname. Text & "','" & TextBox2age.Text & "' ) " 

Conn . Open () 

SavIntol .ExecuteNonQuery () 

Conn.Close () 

المرفقة ملفات حفظا' 

savedMurfacatfile () 

Form1 .updatTheDataBase () 

Information, "‏ .eاMsgBoxSty‏ ,"بنجاح البيانات قاعدة في والحفظ الاضافة عملية تمت" ) Ms3980×‏ 
("بنجاح العملية 

Catch ex As Exception 

MsgBox (Err.Description, MsgBoxStyle.Critical, "Error") 

End Try 


End Sub 
المرفقة ملفات ضافة'‎ 


Private Sub Buttonl1l Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1l.Click 

If fDg.ShowDialog() = DialogResult.OK Then 

CheckedListBox1l. Items.Add(fDg.FileName) 

End If 

End Sub 

End Class 


البرنامج موجود في المرفقات بأسم (program Data3)‏ 


الفرققات(3)] 


تحليل حوائر المعقد بالماتلات .لم 


[© شهادة جتنسية .۹٥ز‏ 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


ا 1 ت ت 

a e » TT & 

إضافة صورة لكل مستخدم في قاعدة البيانات: = 
طريقة إضافة صورة لا تختلف كثيرا عن الطريقة السابقة أيضا نضيفها بنفس ملف المستخدم 


لكن هنا نغير اسم الصورة إلى اسم معين حتى عندما نريد عرض الصورة نعرف ان هذه الصورة 


هي صورة شخصية وليست مرفقات فتكون طريفة الإإضافة والتصفح كتالي 


.١‏ لحفظ الصورة في الملف الشخصي للمستخدم نستدعي الدالة التالية بعد إعطائها مسار الصورة 


vb.net 
Sub savedImage () 
Try 
path = Application. StartupPath & "\filesAdd\" & Trim (TextBox1name. Text) 


Dim di As New System. IO.FilelInfo (path_ image) 
PictureBox1. Image. Save (path & "\picture" & di.Extension) 
Catch ex As Exception 

End Try 

End Sub 


حيث أن (ath_im28eم)‏ هو مسار الصورة على الجهاز 


.١‏ لعرض الصورة عند تصفح السجل نستدعي الدالة التالية 


Sub show hisimage () 

Try 

Dim di As New System.IO.DirectoryInfo (Application. StartupPath & "\filesAdd\" & 

Trim (TextBoxlname. Text) ) 

Dim fii As Filelnfo() = di.GetFiles ("picture.*", SearchOption. TopDirectoryOnly) 
PictureBoxl1l. Image = Image.FromFile (fii (0) .FullName) 

Catch ex As Exception 

هذه الصورة البديلة اذا لم تكن الاساسية موجودة' 

PictureBox1l. Image = My.Resources.iconload_ Iconty_com_969_353_ Cancel Delete Icon 
End Try 

End Sub 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


مثال٠‏ قاعدة بيانات أسماء مستخدمين وأقسامهم تحوي صورة لكل مستخدم وعدد غير محدود من الكتب الرسمية 
نكون فورم كما في الشكل التالي وندرج بها الأدوات كما هي مبينة 


Form al 


وج اقداي 


الاسم 


المرققات الى تخص الشخص 
CheckedListBax1 ]‏ 


يکون کودها کتالي 


vb.net 


Imports System.Data 

Imports System.Data. OleDb 

Imports System. IO 

Public Class Forml 

Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & 
Application. StartupPath & "\db1 .mdb" 

Public CON As New OleDbConnection (ConStr) 

Public DS As New DataSet 

Public SQLstr As String = "SELECT * FROM tabel " 
Dim NumberOfBook As Integer 

Dim pathInputbox, path As String 


Sub ADDhisMirfacattolist () 

Try 

pathInputbox = Application. StartupPath & "\filesAdd\" & Trim (TextBox1name. Text) & 
"\MURFACAT " 

Dim di As New System. IO.DirectoryInfo (pathInputbox) 

NumberOfBook = 0 

GroupBox5.Text = "(" & NumberOfBook & ")تاlقفرملا"‎ 

CheckedListBox1l. Items. Clear () 

Dim f1 As Filelnfo() = di.GetFiles () 

For i As Integer = 0 To (f1.Length ¬ 1) 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


NumberOfBook = NumberOfBook + 1 


GroupBox5.Text = "(" & NumberOfBook & '")(ٽتlقفرملا"‎ 
CheckedListBox1l. Items.Add (f1 (1) .Name) 

Next 

Catch ex As Exception 

End Try 


صور صورة عرض دالة نستدعي' 

show_hisimage () 

End Sub 

د الة لعرض الصورة المحفوضة' 

Sub show hisimage () 

Try 

Dim di As New System.IO.DirectoryInfo (Application. StartupPath & "\filesAdd\" & 

Trim (TextBoxl1lname. Text) ) 

Dim fii As Filelnfo() = di.GetFiles ("picture.*", SearchOption. TopDirectoryOnly) 
PictureBox1l1. Image = Image.FromFile (fii (0) .FullName) 

Catch ex As Exception 

PictureBoxl. Image = My.Resources.iconload Iconty_ _com_969_353_ Cancel Delete Icon 
End Try 

End Sub 


Sub addDataContent () 

On Error Resume Next 

Me.TextBoxlname.DataBindings.Add ("Text'", Me.DS, "tabel.name") 
Me.TextBoxZage.DataBindings.Add ("Text'", Me.DS, "tabel.depart") 
ADDhisMirfacattolist () 

End Sub 

Sub updatTheDataBase () 

Dim DataAdapterl1l As New OleDbDataAdapter (SQLstr, CON) 
DS.Clear () 

DataAdapter1.Fill (DS, "tabel") 

End Sub 


Private Sub Forml1 Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 

Try 

CON . Open () 

Dim DataAdapterl1l As New OleDbDataAdapter (SQLstr, CON) 

DataAdapter1.Fill (DS, "tabel") 

CON.Close () 

addDataContent () 

Catch ex As Exception 

MsgBox (ex.Message, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "ء+lطZخ في‎ لJلاصتالا"(‎ 
End Try 

End Sub 


Private Sub Buttonl Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles previous.Click 

If Me.BindingContext (DS, "tabel") .Position = Me.BindingContext (DS, "tabel") .Count — 1 
Then 

Me.BindingContext (DS, "tabel").Position = 0 

Else 

Me.BindingContext (DS, "tabel") .Position += 1 

End If 

addDataContent () 

End Sub 


Private Sub Buttonl1l Click 1(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1l.Click 

AddOrEdit. Show () 

End Sub 


خطوة بخطوة نحو قاعدة بيانات ترضصي الحميل حسین /حمد طالب 


مرفقة ملفات فتح' 

Private Sub Button2 Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 

Try 

Dim pathInputbox As String = Application. StartupPath & "\filesAdd\" & 
Trim (TextBox1name. Text) & "\MURFACAT" 

Dim di As New System. IO.DirectoryInfo (pathInputbox) 

Dim f1 As Filelnfo() = di.GetFiles () 

For ] = 0 To CheckedListBox1l1. Items.Count — 1 

If CheckedListBox1.GetItemChecked(]) = True Then 

CheckedListBox1. SelectedIndex = j 

For i As Integer = 0 To (f1.Length ¬ 1) 

If String.Equals (CheckedListBox1. SelectedItem. ToString(), f1(i) .Name.ToString) Then 
Process.Start (f1 (1) .FullName) 

End If 

Next 

End If 

Next 

Catch ex As Exception 

End Try 

End Sub 


End Class 


ونكون فورم إضافة جديد ونضيف فيها الأدوات التالية 


ویکون کودها کتالي 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


vb.net 


Imports System.Data 
Imports System.Data. OleDb 
Imports System. IO 

Public Class AddOrEdit 
Dim fDg As New OpenFileDialog 
Dim path image As String 
Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & 
Application. StartupPath & "\db1 .mdb" 

Public CON As New OleDbConnection (ConStr) 

Public DS As New DataSet 

Public SQLstr As String = "SELECT * FROM tabel " 

Dim path As String 

المرفقة ملفات حفظا' 

Sub savedMurfacatfile () 

On Error Resume Next 

path = Application. StartupPath & "\filesAdd\" & Trim (TextBox1name. Text) & "\MURFACAT" 
If My.Computer.FileSystem.DirectoryExists (path) = False Then 
My.Computer.FileSystem.CreateDirectory (path) 

End If 

For i1i = 0 To CheckedListBox1l1.Items.Count — 1 

CheckedListBox1l1. SelectedIndex = i 

Dim dnames As New System. IO.FilelInfo (CheckedListBox1l1. SelectedItem) 

My .Computer.FileSystem. MoveFile (CheckedListBox1. SelectedItem, path & "\" & dnames.Name) 
Next 

الصورة حفظ دالة نستدعي' 

savedImage () 

End Sub 

صورة حفظ' 

Sub savedImage () 

Try 

path = Application. StartupPath & "\filesAdd\" & Trim (TextBox1name. Text) 

Dim di As New System.IO.Filelnfo (path_ image) 

PictureBox1. Image. Save (path & "\picture" & di.Extension) 

Catch ex As Exception 

End Try 

End Sub 

اضافة زر' 

Private Sub addnew_ Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles addnew.Click 

Try 

Dim SavIntol As New OleDb.OleDbCommand 

Dim Conn As New OleDbConnection (ConStr) 

SavIntol.Connection = Conn 

SavIntol.CommandType = CommandType . Text 

SavIntol.CommandText = "INSERT INTO tabel (name, depart)" & "values ('" & 
TextBoxl1lname.Text & "','" & TextBox2age.Text & "' ) " 

Conn . Open () 

SavIntol .ExecuteNonQuery () 

Conn.Close () 

المرفقة ملفات حفظا' 

savedMurfacatfÊile () 

Form1 .updatTheDataBase () 

تمت" Information,‏ .leاMsgBoxSty‏ ,"بنجاح البيانات قاعدة في والحفظ الاضافة عملية تمت" ) ×3980كMs‏ 
("بنجاح العملية 

Catch ex As Exception 

MsgBox (Err.Description, MsgBoxStyle.Critical, "Error") 
End Try 


End Sub 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


المرفقة ملفات ضافة' 

Private Sub Buttonl Click (ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1l.Click 

If fDg.ShowDialog() = DialogResult.OK Then 

CheckedListBox1l. Items.Add (fDg.FileName) 

End If 

End Sub 


نقوم باضافة مسار الصورة من الجهاز' 
Private Sub Button2 Click (ByVal sender As System.Object, ByVal e As System.EventArgs)‏ 
Handles Button2.Click‏ 


Try 
Using SFD As New OpenFileDialog 


"ستحفظها التي الصورة واسم مكان إختثتر" = tleخSFD.Ti‏ 

SFD.Filter = "JPeg Image| *. jpg| Bitmap Image| *.bmp| Gif Image| *.gif|Png Image| *.Png| ALL 
Image | *.*" 

SFD.AddExtension = True 

If SFD.ShowDialog = Windows.Forms.DialogResult. OK Then 
PictureBoxl1l. Image = Image.FromFile (SFD.FileName) 
path _ image = SFD.FileName 

End If 

End Using 

Catch ex As Exception 

End Try 

End Sub 

End Class 


البرنامج موجود في المرفقات بأسم (24أ02 ra"‏ ogامp(‏ 
وا مال جلى اام دال ار تا 


تحليل دواثر المعقد بالماتلاب .ألم 


جتسية.09[ 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


يتناول هذا الفصل تكوين التقارير لشخص معين أو لجميع الأشخاص 
أو لعدد معين من الأشخاص والأعمدة التي يحددها المستخدم وقت 
التنفيذ أو طباعة تقارير تحتوي على صور 


محتوعات الخصل 


* صناعه تقارير الطباعة 

٠‏ طباعة سجل وحد من قاعدة البيانات 
* طباعة صور في التقرير 

* طماعه نشرير هسب طلس الخستخدم وقت الشنفية 


بعد أن تنتهي من هذا الفصل ستكون بأذن الله قادر على تكوين إي تقرير يطلبه منك العميل بشتى اشكاله 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


سے ۰ 


1 
4 


4ھ 


قدمت مايكروسوفت مع إصدارها الجديد من 12008٥٣.طا۷‏ تقرير 0م٠۴‏ بطريقة مطورة كثيرا عن الإصدارات السابقة 
وأداة حاضنة للتقرير سه۷ ممهR‏ مطورة جدا نجد هذه الأدوات في ×0 طامه] بقائمة بأسم 0۲ممR‏ 


صناعة تقارير الطباعة 


= Reporting 

lk Pointer 
__ gl MicrosoftReportViewer 

183 LrystalReportViewer 

2| LrystalReportlDocument 


کیف نکون تقریر داخل برنامجنا.؟ 


لنفرض لدينا برنامج مربوط بقاعدة بيانات يحتوي أسماء مستخدمين وأقسامهم بشكل التالي ونريد تكوين تقرير لهم 


| Add Newltem..  CirleshifteA 
8 Existing Item... Shift+ Alt+ A 
Add Windows Form... 
Add lser Control... 
| Add Component... 
| Add Modulë.., 
! Add Class... 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


Report رڙlتخi‎ pû 


Add New Item - WindowsApplicationl 


Lateqorles: Templates: 
Lomrmon Items Visual Studîo Installed templates 
Lode E] About Box E] Class 
ala 3 Llass Diagram e) Lode File 
i 5وا لالا‎ | Component Class 
Windows e FÎ Custom Control AiU] DataSet 
Reporting ڪا‎ Dialog E] Explarer Forrm 
Workin tê Interface SB }IScript File 
WPF ا‎ LING to SL Llasses ۲ Local Database 
Local Database Cache اة‎ Login Form 
MDI Parent Form +4 | Module 
ENF eEport ا‎ Report Wizard 
ap Resources File ۲۳ service-based Database 
Ez] Splash Screen ( Text File 
E Liser Lontrol mal User Control WPF) 


ER a e ۰ Ear 1 Ll 


An empty Report fıle for creating a report using Microsoft reporting technology 


Name: Reportl.rdlc 


File Edt View Project Build Debug OCata Format Report Tools Tet Window Help 


Sel Eg A Te |e E E Eh... EEE Nil | ELAM SS 3 A E A Ty | E E ee 


= E E BER aR I O E> E | Debug > Any CPU - | P (aM TERE EM, 
ت و ي‎ - x DET em 
ا ن ت تد‎ [Klarne’ Regia SE REE Uesign] | Forml.wb  Forml.wb [Design 3 RS 


|| 0 InpUk REQION. 1 131 I: 


۱ tpt RNiorme teletted 
BbÎ Textbox | 1 image tapture 
ك‎ Line 2 ا ا‎ 
I Table : 
E Matrix 2 
LA Rectangle 2 E Tm i O EL Ker DoE E E LE E e EEE CT aE TT ES PEE SE e OEE CDP 
ÊË Let iii et 1 Ta createareportlayott; dragitemsframithetoolbok and fields Fist and drop them here. i: e 
lê] Image 3 
E Subreport 
HU Chart i app.config 
TT [f db1.mdb 
5 Û db1DataSétstsd 
E Formi.vb 
There are ne usable 0 N ا‎ 
controls in this group, ا چ‎ crmê print,w 
Drag an item onto this - + i) Reportl.rdle الَا‎ 
text to add it to the mal 2 
toolbox, 3 ك ڪڪ 1اا ڪڪ | ا‎ #٣ ال‎ 
Properties TR 
- | 
: 
- Author ج‎ 
30 ا‎ 
3 AhutoRefresh 0 8 
lasses 14 


DataElementhla 
DataFlementSty AttributeNorrmal 
Data5chema 


Data Transform 


DURU 
Show cutout from: Debua اھچا س ا اه‎ 
2 Error Let | E] Uutput 


كما تلاحظ تم إضافة تقریر إلى ١6١١0ام×٥ ٥٣‏ ااںامء الخاصة بالمشروع 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


هذا التقرير الذي ظهر لنا نستطيع التحكم بشكله ومكوناته عن طريق قائمة 0مم 


Report |j Tools Test Window 


E [Report Parameters... 
Ê ا‎ EH Imagês... 
Report Propertlês,.. 
جب‎ Data SOURCES... 

Ë Page Header 


E 


Page Footer 


Report properties *‏ تمكنك من التحكم بأبعاد التقرير وشكله 

Embedded image‏ تمكنك من إضافة صور إلى تقرير لأنه لا نستطيع استخدام صور مع التقرير 
دون أضافتها له وتعرفه على 

aderءh‏ مو۴a‏ تتحكم برأس التقرير الذي يظهر في كل صفحة 

fote *‏ مو۴a‏ تتحكم بنهاية التقرير الذي يظهر في كل صفحة 


لنقم بإضافة 208۲ه٣‏ مه۴ و ٥0٥8۲‏ مه۴ إلى التقرير ليصبح بشكل التالي( ونستطيع عدم إضافتها) 


Reportl.rdlc [Design]  Form2print.wb | Desıgn] 'Forml.vb ; Formd.wb Desıgn] 


ي 


` ` To create-areport layout; drag items from thetoolbox and fields fist and drop them here: ` ۰ ۰... .- 


¥ Page Footer 


نستطيع تكبير وتصغير 6۲ل2هط مو۴a‏ و إە†0هf‏ مو۴a‏ بسحب الحد الفاصل بالماوس للأعلى وللاأسفل 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


لنتحكم ونضبط ببعض خصائص التقرير الأساسية 


Properties Hx 
AutoRefresh Û 
س ت ت ت ت ت ت ت ت ت ت ت ت ت ت ت‎ - 1 Llasses 
: عرض التقرير بشكل شبكي‎ : DataElementNa 
ااا ا اڪ ا اي ا‎ DataElementSty Attribute ormal 
DataSchema 
Data lransform 
Description 
DescriptionLocl 
Drawûrid True 
Embeddedlmac (Collection) 
ا‎ urıdSpacıinqg Û2 5cm 
س اا أبعاد التقرير التفاعلية او عرض‎ InteractiveSlze 29 7cm: 410cm 
| ۸4 ؛ ورقة العرض هنا حددت انا‎ Width 297em 
CS a 1 Heıght 410cm 
e Language Arabic 
لفة التقرير اخترت د ا‎ | Margins 2.5em: 2.5m; 2.5cr 
انترشن نط 4 ل‎ Paqešlze A1cm; 29.7cm 
1 ن‎ References 
ReportPararmett 


Snap Toûrid True 


| 3 Report Items 


' ×» عرض محتويات حقل من قاعدة البيانات داخل ×0ط‎ SS 
5 : ` {abl Textbox 


Sem ER SE e e e EL -‏ و 0 و 

وإ وضع خطوط داجو 

a Se iE e U i Ca E E Matrix‏ س ت ت ت ت م 
[o Rectangle‏ . عرض محتويات الجدول ب ءاطه] لانه بدونه لايمكن 

ن قو اک | عرض اقثر من سجل_ واج e‏ 

TT لھ ا ا‎ ne 

| س راج چ ج‎ El Subreport 

Chart‏ | ادارج صندوق صور 

لنقم باضافة image‏ من قائمة الأدوات الخاصة بتقرير إلى راس التقرير Page header‏ بسحب والإفلات ا تظهر 

هذه صورة التي في داخله في كل صفحة.لعرض صورة داخل أداة موه لا تضاف مباشرة لان التقرير بطبيعته لا 

يقبل صور خارجه لم تعرف عليها لذالك يجب إضافة صور إليه لكي تستطيع عرضها داخله 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


من قائمة 0٣٤‏ م٥۸‏ نختار ٥۵ |" age‏ ۹d١٥مطاصع‏ لكي نضيف صور إلى التقرير 


لا E 1 I‏ 
اا د ا ا 8 


خطوة بخطوة نحو قاعدة بيانات ترضصي الحميل حسین /حمد طالب 


ألان أصبح التقرير يحتوي على صور نذهب إلى أداة aصا!‏ التي أضفناها ونغير الخصائص التالية 


ction 
Bookmark 
Border.olaor Black 
Borderstyle Nome 
Borderwrdth 1p 
Label 
LabelLoclD 
Location 1L. Scmre A ycn 
MIME Type image" gif 
Narre image 1 
Faddirmg pt: Opt; Opt; Opt 
Parent Page Header 
RepeatvYith 

Size AIIA Bc: 5.034 
Ae | FurtoS ize 

SLICE Embedded 

ToolTip 

ToolTipLoclD 
اة ايراج‎ 


ITT Visibility‏ فة لصو 
بقية الخصائص تهتم بشكل صندوق الصور وطريقة عرض الصورة داخله 


۶ 
Le 
G 
ا‎ 


H &H H& 


هنا تظهر قائمة بجميع الصور 
المضافة الى التقرير نختار التي 
نریدها 


0 


¥ Page Header 


E‏ تامج أدارة مخت رات هدد سةالخاسیات والرا یات 


iii iSO ii iii i Bi iii ii ii iii 


. . < . < Tacreate arepart layout, drag items fram thetoolbax and fields listand drop-them here.. . ۰. . . < 


iii iii Ei iii i ii ii ii E iii iii i i iii 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


نحن نريد عرض جميع المحتويات في قاعدة البيانات نختار «ماطه] ندرجها إلى yإكإمط‏ وja data source‏ 
نقوم بسحب حقل الاسم وإضافة إلى ٥اطه]‏ في جزء ءاأج]0(6 وحقل القسم وحقل المعرف بشكل التالي 


act Build ا‎ Uata Tools Test Window Help 


TH ER, ا ت‎ | k Debug EPL - | HP : | AFAR MA=_, 


| Bata SOURCES ج‎ 1 %١ 


aE TR | 


ا چ 


dbi Dataset‏ آ-2 
E] tabel‏ 
Sohrtion Explorer - Solution .. ¥ HE X%|‏ 
EE‏ 
د a :-.. My Project‏ 
Ê app.config‏ = ا E‏ 
ا lg dbl.mdb‏ = کا کے : 
Û db1DataSetxsd‏ ... ر | المعرف سے : depart namê‏ 
جِ =Fields!ldepart.Values = Fields!name_Value “ =F۴ie|ldslةرعملا Value = E] Formi.vb‏ 
E2] Form2print.vb‏ 2 1 1 
اا i E) Reportl.rdle‏ 
| 11 | 3 
Properties HX‏ 
Report +‏ 
Pagê Faoter | 8‏ ¥ 1 
AutoRefresh Û 5‏ 


تربط في التقرير أداة ×هط×ه] بحقل من الجدول عن طريق خاصية عر اج۷ التي تمتل اسم الحقل الذي سيعرض في 
داخل هذه الأداة ولها خصائص نستطيع التحكم به بشكل التقرير .القائمة التي ستظهر في ٥ں‏ اج۷ للجدول التالي 
ExpressloOn,.,*‏ * 


- .المعر !5ل ع۴‎ a ue 
e. Value 


=Fields!depart. Value 


٠‏ وتستخدم ×0ط×ه] أيضا لعرض عبارة معينة داخلها مثلا اسم تقرير أو اسم عمود 


أداة 6اطع تستخدم لعرض البيانات بجدول . عندما نضيفها إلى التقرير تكون بشكل التالي 


هذه الأداة مكونة من ثلاث أجزاء 


س 
Head .١‏ وهو رأس الحقل الذي سيظهر في كل رأس الجدول عند كل صفحة : 
.١‏ اأهام وهي الحقول التي ستظهر في الجدول Û Alignto Grid‏ 
۳. ۴6۲ هي مؤخرة التقرير التي ستظهر في نهاية الجدول ا 
نستطيع زيادة وحذف وتعديل على عدد الأعمدة في هذه الأداة عن طريق الضغط بالموس 3 : 
الأيمن عليها 


ا 

ادا 

2 Delete 
زت‎ 
طالب‎ 


EY | Properties 


خطوة بخطوة نحو تاعدة بيانات ترصي الحميل هسين /حصد 


بعد أن أكملنا التقرير وعرفنا الحقول التي سيرتبط به يجب ملى هذه الحقول بالبيانات التي نريدها من داخل البرنامج ومن 
ثم نعمل فورم جديدة ونضيف إليها أداة عارضؤ llتقlرıر Report Viewer‏ 


ونضغط عليها ونغير التالي 


| ReportViewer Tasks 


Lhoose Report / ا‎ 
Lhoose Data Sources 
Rebınd Uata Sources 
Design a new report 3 


LWndock In parent containêr 


report‏ €0€ نحتار منھا التقریر الذي سنعرضه داخل هذه الأداة 
ونجعل هذه الأداة ممم لكي تملا الفورم ونحول خاصية عأهأء sسw‏ 0لاس الخاصة بالفورم إلى NV axi mized‏ 
لكي تظهر ملا الشاشة عند التنفيذ وأيضا سوف يقوم المعالج باضافة أدوات الربط بقاعدة البيانات لهذه الفورم 


a Fqymdprmêage Capture | SES | 


0 of u H~” | 100% ٍ 


سوف يقوم المترجم بإضافة كود تلقائي في هذه الفورم لتحديث التقرير وملئه بالبيانات 


Private Sub Form2Zprint Load(ByVal sender As System.Ûbject, ByVal e As System.EventArgs) Handles MyBa: 
"TODD: This line of code loads data into the 'dblDataSet.tabel' table. You can move, or remove 1l 
He. tabelTakleAdapter. FI1ll (He. dkb1DataSet . tTabel 


He. ReporTtViewerl.RefreshReporTt ( } 
End Sub 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


بقي فقط في الفورم الأولى في زر طباعة نكتب الكود التالي 


vb.net کود‎ 


شاهد النتائج 


د 2 کس 


:M/M 41 ض1‎ M+ OA A EM R=) 10x ine | Het 


برتامیح ادار ة لخت رات هتد سةالحاسيات وال راغيات 


ارخ depart name‏ 
23 وائ الرييحي مرج 
24 حسین الرنیخی الاس 
25 مص الرييحي ر 


ألان أصبح لدينا تقرير جاهز نستطيع التحكم في ألوان واتجاهات النصوص في التقرير من خلال خصائصها 
البرنامج موجود في المرفقات بأسم (7 (program 0a2‏ 
ٿ وهناك طريقة مختصرة لتكوين تقرير عن طریق dlضbiط Report Viewer Jİe‏ 


Desgin anew report ڙlıتخly‎ 


Lhoose Data Soürces 
Rebind Data Sources 


Design a new report 


Lndeck in parent container 


وبأتباع سلسلة خطوات وضبط شكل التقرير يتكون تقرير بشكل التالي 


a Formraprint eme cn Eee oor ncn EE 


IMR 41 oI Hé OE A EU He | 10* 


Report1 
اڪ‎ 


الحاسبات حسين الربيعي. 24 
تنصصم ضر الربيعي 2 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


طباعة سجل وحد من قاعدة البيانات 


نستطيع التحكم في السجل التي يتم طباعته وقت التنفيذ عن طريق التحكم في خصائص ۷٠W ٥۲‏ 0م۴6 وتحكم في 
الفلتر الخاص بصفوف ۲ه†!آ۴ ۴٥‏ له وتحديد السجل أو الصف الذي سيتم طباعتها بشكل التالي 


Me.tabelTableAdapter.Fill (Me .myDataSet.tabelName) 
Me.myDataSet.tabelName.DefaultView.RowFilter = "name='" & dataNamePrint & "'" 
tabelBindingSource.DataSource = Me.myDataSet.tabelName.DefaultView 

Me. ReportViewerl. RefreshReport () 


لنجعل المثال السابق يقو بطباعة سجل واحد نقوم باختياره من خلال الضغط عليه في ساv‏ لأ وماج 


يبقى المثال نفسه فقط في الفورم الثانية في حدث التحميل نكتب الكود التالي 


Me.tabelTableAdapter.Fill (Me.db1DataSet.tabel) 
Me.db1DataSet.tabel.DefaultView.RowFilter = "name='" & 

Form1. TabelDataGridView. Item (1, Form1.TabelDataGridView.CurrentRow. Index) .Value & 
tabelBindingSource.DataSource = Me.db1DataSet.tabel.DefaultView 

Me. ReportViewerl. RefreshReport () 


ألان لنقم باختيار إي صف ونشاهد تقرير الطباعة 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


= 


IM 4 1 HLF FH |+ O Ê | Û E] a H- | 100% Find | Next 


يرتاميع ادارة لمختبرات هتد سة الحاسيات والبرا يات 


depart name المخرقف‎ 


ے٣‎ 


البرنامج موجود في المرفقات بأسم (program Daa7)‏ 


لو أردنا تكوين جدول شخصي جميل بالاستفادة من |٥۳١‏ 0۲۲ م٠8‏ إذن لنسمح محتويات التقرير ونبد من جديد 


أ. نمسح جميع محتويات التقرير 


NEI TIITBI rTM Ir I2I 31 4'1 5 | 


fbi Textbox 
Line 

I] Table 
Matrix 
[| Rectangle 
List 
Image 
Subreport 
Hl Chart 


= îemeral 


¥ Page Header 


. „ „ . , Ta create areport layout, drag items from thetoalbox and Fields listanddrap.them herê... , 
a e TS N a SS 
controls In this group. 
Drag an Item onto this 
text to add It to the 
toolbox, 


: 
: 
: 


ا 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


1. ندرج ×6×00] وتكتب في داخلها التقرير الشخصي 


1 Il 
La a i 


Toelbait a 11 ا‎ 2 Report1.rdlc [Design] 2 orm2pri 
3 Report Items ڪڪ‎ 
: | Oi TF e | Rî 


| ا‎ - ¥ Page Header 


lk Pointer 
BbÎ Textbox 
ك‎ Line ا‎ RSE SERSSEESEE  SESERESEE 


TT] Table i و‎ e TET 


[_d FRertangle ت‎ N E 
E Wiig 1 RE WEA 

Ê) Subreport 1 
Hl Chart 5 


/ 
=1 General 2| 


; ; ;; HOCLeAtE arepo ft lay QU; drag items from thetoalhox and Fields listanddrap,themherê.; i o 

There are ho usable | E Ta O ORES DT ET 

controls in this group. 

Drag arı Item anto this 

text to ald it to the 2 
toolbox, 3 


el dG GG GG GGG GGG GG sS 


. ندرج |٣۵‏ ونکون خط مستقیم 


Toolbox 


x Line 
lÎ Table 


Matrlx 
[dl Rectangle 
ا ا‎ 
lê) Image 
ا‎ suıbreport 
Hl Chart 2 


31 General د‎ 


There are no usable 1 
controls In this group. 
Ûrag an ftem onto this 

text to add it to the 
toolbox, 7 


I KIO TDG GGG Gm 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


٤‏ . ندرج عاو" هأءمR‏ ونغير فيه بعض الخصائص كما هو مبين 


Data Sourtes 


| Toolbox Toolbox HX „ Report1.rdlc [Design] Forma print.wb. [Design] 


| e 
1 N #¥ Page Header ۰ =5 الععرف كا‎ ۳ 

e E GE ME STE E GENE E E ENES ANE ENE GT 

I Table 

E] Matrix Properties eH *% 
ll Rectanglg rectangle Rectangle > 
E List E HE 

laj Image [E EBackoroundihe 2 

a E Bookmark 

Chart Boarder olor Red‏ ا 
ا E General‏ | 


BarderStyle Dotted 
BorderfWidth Spt 


There are no usable DataElermenta 


: :: ee: ©7 
controls In this qroUp, yg و‎ 


Crag an item onto this 8 TT e E DOataElementOu Auto 2 
text to add it to the OD O: E TG TD NIT Label 
toolbox. a E E E SS BD Sp E E SR A E LabelLorcID 
| a E E E E LinkToChild 
1 ¥ PageFonter : |El Location 1.Scm; lcm 


Name rectangqleÃ 


Tae Oral AFC. Clem 


أ 
| 
ا 
Textbox‏ 2 


°. ندرج ×00×ه† لكتابة أسماء الحقول التي ستعرض 


[Toolbox 
E Report Items 


e | 


abl Textbox 
ك“‎ Line 1 
lÎ Table 5 : E î E textbox2 Textbox 
E] Matrix | a" ARTE 

2 N ا 3 و ی‎ 
LA Rectangle : E 5 چ‎ E E E 
ع‎ 1 1 UH Font Normal: Arial; 3Û = 


Format 


ا 
List‏ | 

la] Image 
E Subreport 


HU Chart 


HideDuplicates 
Initial ToggleSta Collapsed 
Label 


ena LabelLorclb 
Language Default ت‎ 
There are no usable : : 
controls in this group, LineHeight 
Drag an Item onto this Location T.Scm; lcm 
text to add it to the Mahê textbox? د‎ 


toolbox, NumeralLangu: Default 


I i Sa IS mL E ale A LN St eA 2 EL La ale E RL o E ah NurmeralVariant 1 
__#¥#PageFanter 


Padding Apt; Apt, Apt, Ap 
Parent Body 
RepeatWith 
SIZE 3.7 5cm; 1.3650E 
` TextAlign Lenter 
| _ Tefleraratian Nanê ____ 7| 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


1 . نسحب حقول التقرير 


> ¥ | Hata SOUrEEE 


BITN O IA 1 22| | ق‎ 0 8 

E E db1DataSet 

~Ê tabel 
المغرف [ت..:‎ 
~2 name 


التي نريد طباعتها ونضعها في الأماکن كما مبين 


=] depart 


ww IH ¢ 


Properties 


name Textbox ج‎ 


ME. FEF E HIE 
RE E BackgroundCol |_|] Transparent # 
BackgroundIrmz ۳ 

Bookmark E 
Borderkolor Black 
Borderstyle None 
BorderfWidth 1pt 
Default 
Lanarow True 


LanShrink False 
olor i Black 


Lalenrdar 


IRpUE Regiûn 


# Body 


eee e. e 0 چ‎ oe 0# e8 e ı 


0 =First(Fieldslname. Value) Q0 ۳ ir 5" 
1 e د‎ 2 E re #. ۳ | | 


1 eee e 0 e oeoeo eeee. س‎ 


ا ا ا ر ا 
القسح ۾ ا Tirst(Fieldsldepart Value)‏ & . : 


8 8 a ewe. e. EE. wee ewa. 1 


خطوة بخطوة نحو قاعدة بيانات ترضي الحميل 


„7 Report1.dbeiRigîdh Form 2p intvt 


aT | : . : 
mi n. |٤ 1 e 1 Nêne sêlêcted PF : 1 
5 عا‎ mage Capture | 


ا 


HM’ lr Trl TEAST | TT Fr | Tif 


__ #PageHeader 


e. aE î ا ب‎ 
ا‎ e eB oe & ee : 1 ت ہے‎ 


geenenenneneneg 
0 9 =First(Fieldsldepart. Value) 


EET 


ooo nooonee: 


Toolbox 
l2 Report Items 
lk Pointer 


Hl ¢‏ ب 


jab] Textbox 
x Line 

i] Table 
Matrix 
[ıl Rectangle 
| List 

ê] Imagë 
Î suUbreport 
HJ Chart 


=  teneral 


There are no usable 
controls In this group. 
Drag an item onto this 

text to add It to the 

toolbox. 


حسین /حمد طالب 


af Form2print 


copy Right (@2011 Far husssien ahmmed 


البرنامج موجود في المرفقات بأسم )3 (program Data1‏ 


طباعة صور في التقرير ê‏ 


4 


هناك طريقتين لإضافة صور داخل التقرير کن لے 
.١‏ صور مخزنة داخل قاعدة البيانات وتعرض في أداة موه "| بشكل التالي 
ه نغير خاصية ١٠٥۲ل‏ 0ء الخاصة بصندوق الصور ٥و2"‏ | إلى ٥ع2طهاهل‏ لأننا سنجلب الصورة من داخل 
قاعدة البيانات 
ه نغير خاصية عماج۷ الخاصة بصندوق الصور ٥و2"‏ | إلى اسم الحقل الذي تخزن قيه الصورة 


۲. صور مخزنة داخل الحاسوب ومخزن مسارها داخل قاعدة البيانات وتعرض في أداة موه" بشكل التالي 

٠ه‏ نغير خاصية ١١٠۲ل‏ 0ء الخاصة بصندوق الصرر ٥عوه2‏ "| إلى اه ×6١‏ لأننا سنجلب الصورة من خارج 
قاعدة البيانات 

٠‏ نغير خاصية ٥ں‏ اج۷ الخاصة بصندوق الصور |٣49٥‏ إلى اسم الحقل الذي تخزن فيه الصورة ونقوم بكتابة 


© نسمح لتقرير باسترداد صورة من الخارجة وذالك في فورم طباعة التقرير في حدث تحميل نكتب الكود التالي 


vb.net کود‎ 
Me. ReportViewerl.LocalReport.EnableExternalImages = True 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


مثال لطباعة الصور داخل التقارير 


في هذا المثال سنعتمد على قاعدة بيانات من الفصل الثاني مخزن فيها حقل صورة و١¡‏ و حقل اسم الصورة 4"6" 
فقط نقوم بتكوين تقرير لهم أذن سنكون تقرير بشكل التالي 


¥ Page Header 


new report Image 


¥ Body 


=Fields!name. Value E 
التی ادر جناھا داخل الجدول سنضبط خصائصھا کالتالی‎ image أداة‎ 
ق‎ Action 
حددنا نوع الصورة التي سنعرضها‎ : Bookmark 
a E SS Bordertk_olor Black 
SENSES SS RES SE SSS EF 
' اخترنا مصدر الصور هو قاعدة البيانات‎ BorderstyleE Solid 
: BorderwWiıdth 4pt 
اا ا اا ا ا ا کا ا ي ا‎ Label 
LabelLocll 
Location Oem: Derm 
س‎ MIMETypE image/jpeg 
ار الل الى رن هه الور‎ Name imaqel 
بصيغة ملف ثنائي‎ Padding pt; pt; Opt; Opt 
| Parent tablel 
ecm ska Sb 


RepeatWiıth 

SIZE Tce: 2.08522 cm 
SIzIng Fit 

SOURCE Database 

ToolTip 

ToolTipLoclD 

alue = Fields!img. Value 
Vrsibility 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


انفد البرنامج ونشاهد النتانج 


printforrmwithîr age‏ اه 
Ip 2 - 1004 bi‏ [ ا ۳ کچ 1 FL‏ ا 1 E ۹ 1 1 of‏ 


new report Image 


image ones 


image b 


Image cC 


image d 


image € 


Image ones alxs 


البرنامج موجود في المرفقات بأسم (program Daa12)‏ 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


طباعه ته ير حسب طلب المستخدم وقت التنفيذ 
سوف نقوم هنا بجعل المستخدم هو يختار الصفوف والأعمدة التي يريد طباعتها تم يختار طباعة وتطبع له 
فيكيف يتم عمل ذالك.؟ 


أفضل وأسهل وسيلة هي تكوين عدة كا0 مه8 متشابهة في الهيكلية لا يحس المستخدم انه ألان يطبع على تقرير 
مختلف عن سابقة بطريقة التالية 


مثال: لنكون مشروع جديد بشكل التالي 


| 


اة انتمة اة ي بطري عدد الاعمدة فى ورقة 
الظباعة 
القاتمة حاليا قارغة 


N EEBEEELEEEEEL 


خطوة بخطوة نحو قاعدة بيانات ترضي الحميل حسین احمد طالب 


خطوات العمل 


.١‏ نبد بتكوين تقارير بقدر أكثر عدد من الأعمدة قد تتحمله الصفحة وفي الحقيقة صفحة ۸4 لا تتحمل أكثر من 
سبعة أعمدة بأبعاد مناسبة ولا تنسى أن لا يتجاوز عدد الأعمدة في التقرير عدد أعمدة قاعدة البيانات 
إذن نبدأ بتكوين التقارير 
٠‏ تقرير بعمودان ما عدا عمود الترقيم الذي سيظهر في کل تقریر (0۲۲1م٥۸)‏ 


¥ Eady 


> =First(Fieldsla4.Valun =First(FieldslaS.Value) | =First(Fiel 


—Fieldsla1l wale =Fields!laZ.waluke =Fieldsla3.wa  : 


۵ تقریر ثلاثة أعمدة (Report2)‏ 


xFields!a1.Value _____=Figldş!a2.Yalye, _xFieldglaa., 


. | Fields!az.Nalye. 
تقرير أربعة أعمدة (0۲3م۵)‎ ٠ 

ی 

8 3 

=First(Fielc) =First(Field) =First(Fielc | =First(Fielasla5.Va | =First(F 

-Fields!a9.Valu =Fields!la7.Valu =Fields!a1.Valu -Fieldda2.value =Fieldsla3 - - 


ه تقرير خمسة أ عمدة (Report4)‏ 


‘Body 


eren =First(Fi TE rer eT) val =First(F f 
. < =Fields!a11.V =Fields!a9. =Fields!a7.Va =Fields!la1.Va -Field 22 ue =Fields!a3 | - 


تقرير ستة أعمدة (Reports)‏ 


. =Fields!a13.Val =Fields!a11.Val_ =Fields!a9.Valy =Fields!a7.Valu =Fieldsla1.Valu 


4إ 
8 
=First(Field =First(Field =First(Field| =First(Field =First(Field =First(Field| =First(Fieldsla5.Val: =Fi st{Fiel‏ 


=Fields!a15.Val =Fields!la13.Val =Fieldsla11.Val =Fields!a9.Valu =Fields!a7.Valu =Fields!la1.Vall =Fields!a2.Value =e ١ EEN 


لاحظ الحقل الثاني في كل التقارير مربوط ب 5ج للعنوان 2ص للمحتو يات وكذالك بقية الحقول مرتبطة بأعمدة محددة 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


حتى عند الطباعة عندما نضيف في 2ج متلا في إي جدول طباعة يستدعى كأول حقل في الطباعة سيضيف محتوياته فيه 


۲. نکون فورم لکل تقریر ونربطه به 
۳. نضيف )عم آمام كل مستخدم في سeا۷‏ هاا وهاه حتى يسمح في اختياره للطباعة 


vb.net 
Sub addSelectPrint () 
Dim field As New DataGridViewCheckBoxColumn 


field. HeaderText = "رiخ|l‎ ةslıطلlلÛ"‎ 
DataGridView1l.Columns. Insert (0, field) 
End Sub 


.٤‏ نضيف أسماء الحقول الموجودة داخل قاعدة البيانات داخل 180×1ءاا C1٠٥١)‏ لكي نسمح للمستخدم باختيار 
الأعمدة التي يريد طباعتها 


vb.net 
Sub UpdatThePrintColoumList () 
Try 
CheckedListBox1l. Items. Clear () 
For i1 = 1 To DataGridView1l.ColumnCount — 1 
If Len (Trim (DataGridView1l.Columns (i) .HeaderText.ToString)) > 0 Then 
CheckedListBox1l. Items .Add (DataGridView1l.Columns (1) . HeaderText) 
End If 
Next 
For j = 0 To Val (CheckedListBox1. Items.Count — 1) 
CheckedListBox1. SelectedIndex = j 
If CheckedListBoxl. SelectedItem. ToString = "pwسwl!|‎ JanléalJl" Then 
CheckedListBox1l1. SetItemChecked(j], True) 
'CheckedListBox2. Items. Clear () 
CheckedListBox2. Items. Clear () 
CheckedListBox2. Items. Add ("مwٺڵJ|‎ Jماlكکلا"(‎ 
Exit For 
End If 
Next 
Catch ex As Exception 
End Try 
End Sub 


°. وفي حدث تحميل الفورم نستدعي الدالة التالي تحول اسماء الحقول من الأنكليزية الى العربية 


vb.net 
Sub work () 
For i1i = 0 To DataGridView1l.ColumnCount — 1 
Try 
DataGridView1l.Columns (i1) .HeaderText = 
ReplacedNames (DataGridView1.Columns (i) .HeaderText) 
Catch ex As Exception 
End Try 
Next 
End Sub 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


حيث أن وم42۳ ءءهاممR‏ هي دالة تحول اسماء الحقول من الأنكليزية الى العربية بشكل التالي 


vb.net 


Function ReplacedNames (ByVal RecivedNames As String) As String 
Select Case RecivedNames (0) 
Case "خ٣‎ To Ng 

Select Case RecivedNames 

Case "al" 

ReplacedNames = "Jwuلlwuãilا"‎ 
Case "a2" 

ReplacedNames = "oسالl|l‎ لJلماكلا"‎ 
Case "a3" 

ReplacedNames = "oقةiرزر‎ كlكفiıلl"‎ 
Case "a4" 

ReplacedNames = "ڂ+يıرlت "الانفكاك‎ 
Case "a5" 

ReplacedNames = "مoقر‎ öةرشابملا"‎ 
Case "a6" 

ReplacedNames = "المباشرة پٹقناريخ"‎ 
Case "a7" 

ReplacedNames = "ouãlاl"‎ 

Case "a8" 

ReplacedNames = "iılكÉÛll"‎ 

Case "a9" 

ReplacedNames = "îizn.lجفا"‎ 
Case "kind" 

ReplacedNames = "iلنlودنفنا"‎ 

Case "a10" 

ReplacedNames = "cgzوi‎ ةwسlردلlا"‎ 
Case "all" 

ReplacedNames = "رgج|‎ ةغلlلll"‎ 
Case "a12" 

ReplacedNames = "ow|l ةiجgjلll"‎ 
Case "a13" 

ReplacedNames = "رjnglاl‎ " 

Case "a14" 

ReplacedNames = "dوgلlwلاl"‎ 

Case Else 

ReplacedNames = "" 

End Select 

Case Else 

ReplacedNames = RecivedNames 
End Select 

End Function 


. نكون دالة حيث إذا ضغط المستخدم 0 احد الأعمدة ٌ Checked LاisiB 0X1‏ یضیفھا ای أ عمدة الطباعة 
ويطبع حسب ترتيب الأعمدة التي أنت ستختارها بتسلسل 


vb.net 
Sub UPdatTHeeNamesSaved () 


Try 

If CheckedListBox1.GetItemChecked (CheckedListBox1. SelectedIndex) = True Then 
IsFoundINlist = False 

For i1 = 0 To CheckedListBox2.Items.Count — 1 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


CheckedListBox2.SelectedIndex = i 
If CheckedListBox2. SelectedItem = 
IsFoundINlist = True 

End If 

Next 


CheckedListBox1. SelectedItem Then 


If IsFoundINlist = False Then 
CheckedListBox2. Items .Add (CheckedListBox1. SelectedItem) 
End If 

Else 

For 1 = 0 To CheckedListBox2. Items.Count — 1 
CheckedListBox2.SelectedIndex = i 

If CheckedListBox2. SelectedItem = CheckedListBoxl. SelectedItem Then 
Try 
CheckedListBox2. Items. RemoveAt (CheckedListBox2. SelectedIndex) 
Catch ex As Exception 

'MsgBox (ex.Message, MsgBoxStyle.Critical, "Error") 

End Try 

End If 

Next 

End If 

Catch ex As Exception 

End Try 

ComboBox<3. Text = CheckedListBox2. Items. Count 

If CheckedListBox2. Items.Count < 2 Then 

ComboBox3. Text = 2 

End If 

End Sub 


۷. في زر الطباعة نكتب الكود التالي الذي يعمل على تكوين جدول جديد من كأ وهاة0 من خلال ما تم اختياره من 


vb.net 


Private Sub PrintDocumuntFile Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles PrintDocumuntFile.Click 

numberofselected = 0 

If CheckedListBox2. Items.Count < 1 Then 

MsgBox ("مpنİ ,"لطباعته حقل اي باختیار تتم‎ MsgBoxStyle. Information, "Error Print") 
Exit Sub 

End If 

numberofselected = 0 

For i = 0 To DataGridViewl.Rows.Count — 1 

Try 

If DataGridViewl.Item(0, i) .Value = True Then 

numberofselected = numberofselected + 1 

End If 

Catch ex As Exception 

End Try 

Next 

If numberofselected = 0 Then 

MsgBox ("مۃpl ,"لطباعته شخص ياي خاص صف اي باختىار تقم‎ MsgBoxStyle. Information, "Error 
Print") 

Exit Sub 

End If 

If CheckedListBox2. Items.Count > 7 Then 

7 الاعمدة عدد لايتجاوز ان يجب الطباعة ورقة عرضا اخترتها التي الاعمدة عد تجاوز") ×80طgوMs‏ 
nesl '", MsgBoxStyle. Information, "Error Print")‏ 

Exit Sub 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


End If 

Me.Cursor = Cursors.WaitCursor 

PrintDocumuntFile.Enabled = False 

TheArrayOFNamesColoumToPrintIT () 

dt = New printFormsDataSet.tablelstdDataTable 

dt.TableName = "tablelstd'" 

Dim count As Integer = 1 

Dim dr As DataRow 

For i1 = 0 To DataGridViewl.Rows.Count — 1 

Try 

If DataGridViewl.Item(0, i) .Value = True Then 

dr = dt.Rows.Add 

' the tasatsol 

dr.Item("a3") = count 

dr. Item ("a6") = التسلسل"‎ " 

For ] = 0 To DataGridViewl.ColumnCount — 1 

' for 2 coloums and above 

If Val (ComboBox3. Text) >= 2 Then 

If ArrayOFPrintColoum (0) = DataGridView1l.Columns (jJ) .HeaderText Then 
dr.Item("a2") = DataGridViewl.Item(j]j, i) .Value.ToString 
dr.Item("a5") = DataGridView1l.Columns (jJ) .HeaderText 

End If 

If ArrayOFPrintColoum (1) = DataGridView1l.Columns (jJ) .HeaderText Then 
dr.Item("al") = DataGridViewl.Item(j]j, i) .Value.ToString 
dr.Item("a4") = DataGridView1l.Columns (jJ) .HeaderText 

End If 

End If 

' for 3 coloums and above 

If Val (ComboBox3. Text) >= 3 Then 

If ArrayOFPrintColoum (2) = DataGridView1l.Columns (jJ) .HeaderText Then 
dr.Item("a7") = DataGridView1l.Item(j]j, i) .Value.ToString 
dr.Item("a8") = DataGridView1l.Columns (j) .HeaderText 

End If 

End If 

' for 4 coloums and above 

If Val (ComboBox3. Text) >= 4 Then 

If ArrayOFPrintColoum (3) = DataGridView1l.Columns (jJ) .HeaderText Then 
dr.Item("a9") = DataGridViewl.Item(j]j, i) .Value.ToString 
dr.Item("a1l0") = DataGridViewl.Columns (jJ) . HeaderText 

End If 

End If 

' for 5Š coloums and above 

If Val (ComboBox3. Text) >= 5 Then 

If ArrayOFPrintColoum (4) = DataGridView1l.Columns (jJ) .HeaderText Then 
dr.Item("al1") = DataGridViewl.Item(], i) .Value.ToString 
dr.Item("al2") = DataGridView1l.Columns (jJ) . HeaderText 

End If 

End If 

' for 6 coloums and above 

If Val (ComboBox3. Text) >= 6 Then 

If ArrayOFPrintColoum (5) = DataGridView1l.Columns (jJ) .HeaderText Then 
dr.Item("al3") = DataGridViewl.Item(], i) .Value.ToString 
dr.Item("al4") = DataGridView1l.Columns (jJ) . HeaderText 

End If 

End If 

' for 7 coloums and above 

If Val (ComboBox3. Text) >= 7 Then 

If ArrayOFPrintColoum (6) = DataGridView1l.Columns (jJ) .HeaderText Then 
dr.Item("al1l5") = DataGridViewl.Item(], i) .Value.ToString 
dr.Item("al1l6") = DataGridView1l.Columns (jJ) . HeaderText 

End If 


خطوة بخطوة نحو قاعدة بيانات ترضي الحميل حسین /حمد طالب 


End If 

Next 

count += 1 

End If 

Catch ex As Exception 

End Try 

Next 

Dim dss As New DataSet 

dss.Clear () 

dss.Tables. Add (dt) 

' for select the report will print 

Select Case Val (ComboBox3. Text) 

Case 2 

Dim p3 As New PrintForm3Coloums 
p3.tablelstdBindingSource.DataSource = dss 
p3. Show () 

Case 3 

Dim p4 As New PrintForm4Coloums 
p4.tablelstdBindingSource.DataSource = dss 
p4.Show () 

Case 4 

Dim p5 As New PrintFormSŠColoums 
pŠ5.tablelstdBindingSource.DataSource = dss 
pŠ. Show () 

Case 5 

Dim p6 As New PrintFormé6Coloums 
p6.tablelstdBindingSource.DataSource = dss 
p6.Show () 

Case 6 

Dim p7 As New PrintForm7Coloums 
p7.tablelstdBindingSource.DataSource = dss 
pP7.Show () 

Case 7 

Dim p8 As New PrintForm8Coloums 
p8.tablelstdBindingSource.DataSource = dss 
p8. Show () 

End Select 

Me.Cursor = Cursors.Default 
PrintDocumuntFile.Enabled = True 

End Sub 


هي دالة نقوم من خلالها بتسلسل طباعة في الأعمدة 


vb.net 
Sub TheArrayOFNamesColoumToPrintIT () 
For i1 = 0 To 90 
ArrayOFPrintColoum (i1) = Nothing 
Next 


For 1 = 0 To CheckedListBox2. Items.Count — 1 
CheckedListBox2.SelectedIndex = i 
ArrayOFPrintColoum (i1) = CheckedListBox2. SelectedItem 
Next 

End Sub 


البرنامج موجود في المرفقات بأسم (program Data8)‏ 


ألان نفذ البرنامج وجرب تطبع إي أعمدة أنت تختارها وشاهد العرضص 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


= 


سے 


التقارير واستخدام الدوال وقت النتفيذ A-6‏ 


N EG OC GG E ES 
وترتيب نصوص وغيرها من الدوال الجاهزة التي قد نحتاجها وقد نحتاج إلى دوال نحن نكونها داخل التقارير‎ 
أذن لنبداً بالدوال الموجودة داخل التقرير وكيف نستخدمها‎ 


استخدام الدوال الموجودة داخل التقارير . 
كل أداة داخل التقرير لها خصائص وابسط مثال على ذالك خصائص صندوق النصوص 


خطوة بخطوة نحو قاعدة بيانات ترضي الحميل 


# ctian 
BEackgrourmrdt colar Î Tre 
BaclkcroundIirmracgpe 
Ecokrarark 
Borctlertoalor Black 
Border style reê 
BEordervYidth I1 pt 
Walendar Cefaulkt 
AHF True 
wanShrink False 
Ww olar SÎ Ela 
DataElermentMarrme 
OataElerrentilut put Ta] 
DataElermentstyle ر پک‎ 
Cirecticn LTE 
Foarmt Moral 
Forrmat 
HideDuplicates 
InrttalToggleSftate olla psi 
Label 
LabelLoecIE 
Larmquracye Kefault 
LineHerght 
م ا ي‎ ٤ : Locatraon JIcem; U. 
وهي معناه الحقل او النص‎ value من أحد الخصائص هي‎ EEE EEE E 
الذي سیظهر داخل صندوق النصورص لو ضغط عليه‎ PHurmrteralLangq rage Cefaiult 
يي سيظهر عبارة ١0ووم۲م×ه والأعمدة المخزنة داخل قاعدة‎ > 2 
البيانات الشكل التالى‎ Parent Page He 
Repeatvyıth 
LAA cnt: 


< Expresslon... > 


TextAlîgqn Lenter 
.المعر‎ au TetDecoration Forme 
> ToolTip 
=Fıelds!name, Value e EÊ 
=Fields!depart. Value UnicodêBiDi Normal 
Llserîsork 
VWalurë المت خصبي.‎ 
WalueLocIl 
VWerticalAalign Top 
Wisibilrty 
Writing elaocle Ir-tb 


حسین /حمد طالب 


ألان لنضغط على خیار i0۸وes expr‏ کی ي من الخواص ستظهر النافدة التالية(هذه نافذة خاصية (value‏ 


تافةة الاستاد للحقل 


امذة قاع البياتات 


alobals 

Parameters 

Frelcls 
Datasets 3 
i: perators 


الذوال انحاهرة 


٠‏ نافذة إسناد الحقل :نكتب به الأمر المراد تطبيقه على هذا الحقل متلا أيجاد اكبر رقم في الحقل وغيرها 
ة قواعد البيانات تحتوي على أعمدة الجدول المرتبطة بتقرب 


۵ اعمد 


Ecil am ec pp FESS EON LESION WES ial Basur Ear Flt gfe sr FTE aer: 
۰ 
2 |] 1 " 
gt egg OT Fiscal: 
gs CTO rS rts Ss n i am 
ٍ Fir sFE Fila rye 
lor bar lis 
2 a First cl mp arr] 
a Seg سے _ سسس سے ت‎ 
اکا‎ & Fa EO Fs 
0 ج پا ا‎ E FT E E 
پڪ ج‎ E FFT PFS FES O FT 


Lore ca le EFE Sm‏ ا 
BETE SHIFE‏ 


EE CCeomramrsorm FurmuctEiormus 


er] sna [| isi 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


عمليات رياضية : تحتوي على رموز رياضية لجمع حقلين أو ضرب أو إيجاد باقي القسمة 


Description 


شرح كيقة امنتحذاح اثدانة 

Uatasets 
f: i perators 
Arithmetic 

4 Cormparson 1 Example ر‎ 

E O E =Fields!Yearlyirncome,value# A000 

-- Logical Bitwisê 

Bit Shift 


EH Corman Furrctions 


اخھل شيءِ هنا هو كل دالة مخزنة ببين أنا كيف تستخدمها بواسطة Example‏ 


دوال جاهزة : تحتوي على دوال جاهزة لاستخدامها داخل التقرير 


ل e‏ س > س ج 


Description 


Lomparison | Returns a string In which the character 
order ûf a spêcified string 15 rEversêdl, 


Loancatenation 
Logical Bitwise 
Bit Shift 
1: Lomrman Functions 
. Date & Time 
Example 
۰ Inspection =StrReverse( Fields! Description.Value] 
Frograrm Flow 
Aggregate 
Financial 
Lonyerslon 


Miscellaneous 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


بعد ان تعرفنا على الحقول الجاهزة لنكون مثال بسيط أننا نريد عكس محتويات حقل الاسم في قاعدة بيانات تحتوي على 
اسم الشخص وقسمه كما في المثال السابقة فخطوات العمل تكون بشكل التالي 


.١‏ نضغط على حقل مںاھں لصندوق النص ومن لyاoوماھء‏ نختار common Function‏ نختار text‏ ثم 
strRevers all‏ 


Category2common Function 2text 2 strRever 
لنشاهد الان كيف نستخدمها من خلال المثال الذي وضعه لنا‎ 


Description 
Returns a string In which the character 
order ûf a spêcified string 15 rEversêdl, 
ı-- Logical/Bitwise 
Bit Shift 
&- Common Functions 
2 Text Replace 
:-- Date & Time Right 
: RSet 


: RTrim [ 8 
“Inspection Space -=StrReverse[FieldslDescription.Value] 


Example 


۰ Program Flow 2plit 
: StrCormp 
| Str ony 


Financial StrÛu 
۰ Lonyerslon E: 


Trim 
LCase 


AqqreqatE 


i. Miscellaneous 


ed Gera) Nez 


كما هو المثال يقول تكتب الدالة بعد المساواة ثم الحقل الذي تريد أن تعكس محتوياته بين قوسيها 
إذن نضغط على هذه الدالة )زا٥‏ عاطاuمه‏ بالماوس لكي تظهر في منطقة 


an expression using visual basic language syntax)‏ dاBui)‏ هي منطقة تخص کود العرض 


SLLREYELSE | 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


لإضافة حقل الاسم إلى الأداة نضغط على 


Category2 Datasets 2item 2tabel Name 2 Field 2 coloums Name 


Build an expression using Visual Basic langage syntax: 


=StrReverse (First (F1elds!'name. Value, "dbiDataSet: tabel™")} } 


db1 Dataöêî tabel 
First( Rare] 


Fırsttdepart] 


E: Cperators 
E]. Cormmon Functions 
ار ن اة قق ت ن‎ | 
| كلك عطيه ليضهر قي‎ 
Build an expression 
using visual basic 
language syntax 
= Financial اي و‎ 


:. Conversion 


Inspection 
: Program Flows 


Aggregate 


i: MiscellanmeclIs 


الان اضغط موافق وجرب تنفذ البرنامج سترى كيف يعكس التقرير محتويات حقل الاسم 


=lff(len(Fields!ColName.value)=5,'"9pt","15pt") 


أو أردنا أن تكون قيمة الخط مساوية لقيمة حقل معين 


vb.net 


= Fields!ColName.value & "pt" 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


تكوين الدوال في التقارير . 


قد نحتاج إلى دوال نستخدمها داخل التقرير وتؤدي مهام معينة غير تلك الدوال الجاهزة مع التقرير هذه الدوال نحن نكونها 
بأنفسنا ونضيفها إلى التقرير لكي يتمكن التقرير من استخدامها متلا نحتاج دالة لمعرفة هل العدد في الحقل أولي أم لا 


.١‏ دوال مضافة داخل التقرير: 


تکتب هذه الدوال ف تبو بب Code‏ داخل التقرير الذي نصل اليه عن طریق اختیار قائمة Report‏ 
Report properties şÛ‏ تم تبویپ Code‏ 


Report 2 Report properties > Code 


ero epee a sS. 


Lustom code: 


وتستدعى الدوال المكتوبة داخل 00۵٥‏ من داخل إي خاصية لأي دائن داخل التقرير بضغط على خاصيه واختيار 
expression‏ وكتابة التالي 


vb.net كود‎ 
= Code.FunctionName 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


مثال: نريد كتابة دالة تقوم بمعرفة هل العدد في الحقل أولي أم لا وعرض في داخل الحقل في التقرير بشكل التالي 


خطوات العمل 


+ 


.١‏ نقوم باختیار قائمة ا0ممR‏ تم Report properties‏ تم تبويب C٥00٥‏ ونكتب دالة إيجاد العدد الاولي 
ا س a Report Properties nny‏ 


e - = 


General j Layout) Lode Data Uutput 


Lustom code: 
Public Function primenumber(ByVal number As Integer) 
Dm numberlype As String = "Is prime" 
For numberBetween As Integer = A To number - 1 
If number Mod numberBetween = Û [hen 
numberType = "Is no prime" 
End If 


| Next 
۱ Return (number & number Type] 
End Function 


كما نرى هذه الدالة تستقبل قيمة الحقل وتعيد قيمته مع نوعه هل أولي أم لا 


آي الس عى الدالة من خاصیية مں اھ بعد أن نرسل لها محتويات الحقل بشكل التالي 


vb.net كود‎ 
=Code.primenumber (val (Fields!depart. Value) ) 


سترى انه سيطبع لك الشكل التالي مثلا إذا كان محتويات الحقل ۳۲ سيطبع 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


۲.دوال مضافة عن طريق تكوين ملف ٠51‏ 


Class Library تكتب الدوال داخل ملف ا نكونه بطريقة التالية نفتح مشروع جديد بأي لغة ونختار‎ .١ 
ونكتب الدوال التي نحتاجها في داخله ونضغط هاأں8 لتحويل sوجا٥ الى ملف اا‎ 

۲. من داخل التقرير نفتح تبويب R٥٠۲٠۸٠٥5‏ الذي نصل إليه عن طريق اختيار قائمة اهمه تم 
References mıgڊî pî Report properties‏ 


Report2 Report properties> References 


ıermeral References Data Output 


Referentes: 


Assembly narne 


# 


lasses; 


Llass nharme ١ Instarice Fiatme 


نضیف ملف 51 الذي کوناه عن طریق ضغط على )...( ثم اختیار تبویب موںهإ8 وجلب الملف 


٣‏ لكي نستخدم الدوال الموجودة داخل ملف اا من داخل التقرير نصل إليه بطريقة التالية 


vb.net کود‎ 


=ClassLibraryName.ClassName.FunctionName 


خطوة بخطوة نحو قاعدة بيانات ترضي العميل حسین احمد طالب 


خطوة بخطوة نحو قاعدة بيانات ترضصي الحميل حسین /حمد طالب 


